(gnus-article-toggle-truncate-lines): Fix code.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0f0edd6..771f174 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2006-06-11  Reiner Steib  <Reiner.Steib@gmx.de>
+
+       * gnus-art.el (gnus-article-toggle-truncate-lines): Fix code.
+
 2006-06-11  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * gnus-art.el (gnus-article-truncate-lines): Default to the value of

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index aac08f2..329f055 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -2249,10 +2249,20 @@ If ARG is non-nil and not a number, toggle
 `gnus-article-truncate-lines' too.  If ARG is a number, truncate
 long lines iff arg is positive."
   (interactive "P")
-  (when (and arg (not (numberp arg)))
+  (cond
+   ((and (numberp arg) (> arg 0))
+    (setq gnus-article-truncate-lines t))
+   ((numberp arg)
+    (setq gnus-article-truncate-lines nil))
+   (arg
     (setq gnus-article-truncate-lines
-         (not gnus-article-truncate-lines)))
+         (not gnus-article-truncate-lines))))
   (gnus-with-article-buffer
+    (cond
+     ((and (numberp arg) (> arg 0))
+      (setq truncate-lines nil))
+     ((numberp arg)
+      (setq truncate-lines t)))
     ;; In versions of Emacs 22 (CVS) before 2006-05-26,
     ;; `toggle-truncate-lines' needs an argument.
     (toggle-truncate-lines)))