diff options
| author | Katsumi Yamaoka | 2017-07-20 07:16:48 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka | 2017-07-20 07:16:48 +0000 |
| commit | 371565f7d7746fe5682f4ddc3ab4ea820efccec7 (patch) | |
| tree | 3941c108ea95476148d7461daf02aa218a8dccb9 | |
| parent | 644cdd1aa0a10dbfffa3b9b4c7a97f8cddded0b8 (diff) | |
| download | emacs-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.el | 7 |
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 |