[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
gnus-summary-toggle-truncation
From: |
Miles Bader |
Subject: |
gnus-summary-toggle-truncation |
Date: |
Wed, 20 Jan 2010 14:11:04 +0900 |
Is there a reason not to apply the following patch? `toggle-truncate-lines'
seems to do the same thing as `gnus-summary-toggle-truncation', but in a
less annoying manner (no screen flashing).
Thanks,
-Miles
diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el
index 2464b13..cf97cc2 100644
--- a/lisp/gnus/gnus-sum.el
+++ b/lisp/gnus/gnus-sum.el
@@ -6956,14 +6956,7 @@ displayed, no centering will be performed."
(gnus-summary-remove-process-mark article)))))
(gnus-summary-position-point))
-(defun gnus-summary-toggle-truncation (&optional arg)
- "Toggle truncation of summary lines.
-With ARG, turn line truncation on if ARG is positive."
- (interactive "P")
- (setq truncate-lines
- (if (null arg) (not truncate-lines)
- (> (prefix-numeric-value arg) 0)))
- (redraw-display))
+(defalias 'gnus-summary-toggle-truncation 'toggle-truncate-lines)
(defun gnus-summary-find-for-reselect ()
"Return the number of an article to stay on across a reselect.
--
Back, n. That part of your friend which it is your privilege to contemplate in
your adversity.
- gnus-summary-toggle-truncation,
Miles Bader <=