From 0cbd7b4b1fce603827a6ac254d62cb76ca57eb93 Mon Sep 17 00:00:00 2001 From: ShengHuo ZHU Date: Mon, 14 Jan 2002 15:09:14 +0000 Subject: [PATCH] * gnus.el: We don't need gnus-article-show-all-headers. * gnus-art.el (article-show-all, gnus-article-show-all-header): Ditto. * gnus-sum.el (gnus-summary-select-article): Don't call show-all-headers, because hidden headers are not hidden text any more. --- lisp/ChangeLog | 11 +++++++++++ lisp/gnus-art.el | 15 ++++++++------- lisp/gnus-sum.el | 11 ++++++----- lisp/gnus.el | 2 +- 4 files changed, 26 insertions(+), 13 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d2a33194b..618eb2ada 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,14 @@ +2002-01-14 ShengHuo ZHU + + * gnus.el: We don't need gnus-article-show-all-headers. + + * gnus-art.el (article-show-all, gnus-article-show-all-header): + Ditto. + + * gnus-sum.el (gnus-summary-select-article): Don't call + show-all-headers, because hidden headers are not hidden text any + more. + 2002-01-13 Simon Josefsson * message.el (message-newline-and-reformat): Use `newline' instead diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el index 8f70946fd..b1fd4fa42 100644 --- a/lisp/gnus-art.el +++ b/lisp/gnus-art.el @@ -2656,12 +2656,12 @@ This format is defined by the `gnus-article-time-format' variable." (interactive (list t)) (article-date-ut 'iso8601 highlight)) -(defun article-show-all () - "Show all hidden text in the article buffer." - (interactive) - (save-excursion - (let ((buffer-read-only nil)) - (gnus-article-unhide-text (point-min) (point-max))))) +;; (defun article-show-all () +;; "Show all hidden text in the article buffer." +;; (interactive) +;; (save-excursion +;; (let ((buffer-read-only nil)) +;; (gnus-article-unhide-text (point-min) (point-max))))) (defun article-remove-leading-whitespace () "Remove excessive whitespace from all headers." @@ -3169,7 +3169,8 @@ If variable `gnus-use-long-file-name' is non-nil, it is article-emphasize article-treat-dumbquotes article-normalize-headers - (article-show-all . gnus-article-show-all-headers)))) +;; (article-show-all . gnus-article-show-all-headers) + ))) ;;; ;;; Gnus article mode diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index 1826e659b..de8df4e84 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -6536,20 +6536,21 @@ be displayed." (or (null gnus-current-article) (not (eq gnus-current-article article)))) force) - ;; The requested article is different from the current article. + ;; The requested article is different from the current article. (progn (gnus-summary-display-article article all-headers) (when (gnus-buffer-live-p gnus-article-buffer) (with-current-buffer gnus-article-buffer (if (not gnus-article-decoded-p) ;; a local variable (mm-disable-multibyte)))) - (when (or all-headers gnus-show-all-headers) - (gnus-article-show-all-headers)) +;;; Hidden headers are not hidden text any more. +;; (when (or all-headers gnus-show-all-headers) +;; (gnus-article-show-all-headers)) (gnus-article-set-window-start (cdr (assq article gnus-newsgroup-bookmarks))) article) - (when (or all-headers gnus-show-all-headers) - (gnus-article-show-all-headers)) +;; (when (or all-headers gnus-show-all-headers) +;; (gnus-article-show-all-headers)) 'old)))) (defun gnus-summary-force-verify-and-decrypt () diff --git a/lisp/gnus.el b/lisp/gnus.el index 125e1e1ad..b421510c8 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el @@ -2106,7 +2106,7 @@ gnus-newsrc-hashtb should be kept so that both hold the same information.") gnus-article-hide-pem gnus-article-hide-signature gnus-article-strip-leading-blank-lines gnus-article-date-local gnus-article-date-original gnus-article-date-lapsed - gnus-article-show-all-headers +;; gnus-article-show-all-headers gnus-article-edit-mode gnus-article-edit-article gnus-article-edit-done gnus-article-decode-encoded-words gnus-start-date-timer gnus-stop-date-timer -- 2.25.1