aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKatsumi Yamaoka2017-07-20 07:16:48 +0000
committerKatsumi Yamaoka2017-07-20 07:16:48 +0000
commit371565f7d7746fe5682f4ddc3ab4ea820efccec7 (patch)
tree3941c108ea95476148d7461daf02aa218a8dccb9
parent644cdd1aa0a10dbfffa3b9b4c7a97f8cddded0b8 (diff)
downloademacs-371565f7d7746fe5682f4ddc3ab4ea820efccec7.tar.gz
emacs-371565f7d7746fe5682f4ddc3ab4ea820efccec7.zip
Fix the bogus change made 13 years ago (bug#27084)
* lisp/gnus/gnus-sum.el (gnus-summary-toggle-header): Fix the way to test if there is no visible header (bug#27084).
-rw-r--r--lisp/gnus/gnus-sum.el7
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el
index 9bdd0c66f56..f2e51fb225f 100644
--- a/lisp/gnus/gnus-sum.el
+++ b/lisp/gnus/gnus-sum.el
@@ -9780,8 +9780,11 @@ If ARG is a negative number, hide the unwanted header lines."
9780 (inhibit-point-motion-hooks t) 9780 (inhibit-point-motion-hooks t)
9781 (hidden (if (numberp arg) 9781 (hidden (if (numberp arg)
9782 (>= arg 0) 9782 (>= arg 0)
9783 (or (not (looking-at "[^ \t\n]+:")) 9783 (or
9784 (gnus-article-hidden-text-p 'headers)))) 9784 ;; The case where there's no visible header
9785 ;; that matches `gnus-visible-headers'.
9786 (looking-at "\n?\\'")
9787 (gnus-article-hidden-text-p 'headers))))
9785 s e) 9788 s e)
9786 (delete-region (point-min) (point-max)) 9789 (delete-region (point-min) (point-max))
9787 (with-current-buffer gnus-original-article-buffer 9790 (with-current-buffer gnus-original-article-buffer