From: yamaoka Date: Mon, 20 Nov 2000 09:03:57 +0000 (+0000) Subject: Synch with Gnus. X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a75db3574917ef290f39b57926571362c6471817;p=elisp%2Fgnus.git- Synch with Gnus. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 25ccf85..395a0a1 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2000-11-19 23:00:00 ShengHuo ZHU + + * mm-decode.el (mm-decrypt-option): Doc typo. + + * gnus-art.el (gnus-article-read-summary-keys): lookup-key may + return a number. + 2000-11-19 21:00:00 ShengHuo ZHU * message.el (message-newline-and-reformat): Typo. diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el index 7944bb8..0dc292b 100644 --- a/lisp/gnus-art.el +++ b/lisp/gnus-art.el @@ -4398,26 +4398,28 @@ Argument LINES specifies lines to be scrolled down." (switch-to-buffer summary 'norecord)) (setq in-buffer (current-buffer)) ;; We disable the pick minor mode commands. - (if (setq func (let (gnus-pick-mode) - (lookup-key (current-local-map) keys))) + (if (and (setq func (let (gnus-pick-mode) + (lookup-key (current-local-map) keys))) + (functionp func)) (progn (call-interactively func) - (setq new-sum-point (point))) - (ding)) - (when (eq in-buffer (current-buffer)) - (setq selected (gnus-summary-select-article)) - (set-buffer obuf) - (unless not-restore-window - (set-window-configuration owin)) - (when (eq selected 'old) - (article-goto-body) - (set-window-start (get-buffer-window (current-buffer)) - 1) - (set-window-point (get-buffer-window (current-buffer)) - (point))) - (let ((win (get-buffer-window gnus-article-current-summary))) - (when win - (set-window-point win new-sum-point)))))))) + (setq new-sum-point (point)) + (when (eq in-buffer (current-buffer)) + (setq selected (gnus-summary-select-article)) + (set-buffer obuf) + (unless not-restore-window + (set-window-configuration owin)) + (when (eq selected 'old) + (article-goto-body) + (set-window-start (get-buffer-window (current-buffer)) + 1) + (set-window-point (get-buffer-window (current-buffer)) + (point))) + (let ((win (get-buffer-window gnus-article-current-summary))) + (when win + (set-window-point win new-sum-point)))) ) + (switch-to-buffer gnus-article-buffer) + (ding)))))) (defun gnus-article-hide (&optional arg force) "Hide all the gruft in the current article. diff --git a/lisp/mm-decode.el b/lisp/mm-decode.el index 30be82f..18fe126 100644 --- a/lisp/mm-decode.el +++ b/lisp/mm-decode.el @@ -269,7 +269,7 @@ to: mm-uu-pgp-encrypted-test))) (defcustom mm-decrypt-option nil - "Option of decrypting signed parts. + "Option of decrypting encrypted parts. `never', not decrypt; `always', always decrypt; `known', only decrypt known protocols. Otherwise, ask user." :type '(choice (item always) diff --git a/texi/ChangeLog b/texi/ChangeLog index f94f32a..66a51ae 100644 --- a/texi/ChangeLog +++ b/texi/ChangeLog @@ -1,3 +1,7 @@ +2000-11-20 00:00:00 ShengHuo ZHU + + * gnus.texi: Add. + 2000-11-12 Florian Weimer * message.texi (Security): Fixed typo, change "PGP" to "OpenPGP". diff --git a/texi/gnus-ja.texi b/texi/gnus-ja.texi index 7104302..55e105b 100644 --- a/texi/gnus-ja.texi +++ b/texi/gnus-ja.texi @@ -565,6 +565,7 @@ The Summary Buffer * Exiting the Summary Buffer:: $B%0%k!<%W%P%C%U%!$KLa$k(B * Crosspost Handling:: $B%/%m%9%]%9%H$5$l$?5-;v$,$I$N$h$&$K07$o$l$k$+(B * Duplicate Suppression:: $B%/%m%9%]%9%H$N07$$$K<:GT$7$?$H$-$NBeBXA0!#(B $B4X?t$OJL$N$H$3$m$K%a%C%;!<%8$r%3%T!<$7$?$j!">C5n$9$k$^$($K2?$i$+$N>pJs$r(B $B