From: yamaoka Date: Sat, 17 Apr 2004 23:57:05 +0000 (+0000) Subject: Synch to No Gnus 200404171440. X-Git-Tag: t-gnus-6_17_4-quimby-~965 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=3ed36a128da5cb729477eec4ad8c539c17616a75;p=elisp%2Fgnus.git- Synch to No Gnus 200404171440. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 527e788..d913a49 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,13 @@ +2004-04-17 Jesper Harder + + * gnus-sum.el (gnus-set-global-variables) + (gnus-build-all-threads, gnus-get-newsgroup-headers) + (gnus-article-get-xrefs, gnus-summary-best-group) + (gnus-summary-next-article, gnus-summary-enter-digest-group) + (gnus-summary-set-bookmark, gnus-offer-save-summaries) + (gnus-summary-update-info, gnus-kill-or-deaden-summary): Use + with-current-buffer. + 2004-04-16 Teodor Zlatanov * spam.el (spam-summary-prepare-exit): simplified logic @@ -11,7 +21,7 @@ 2004-04-16 Jesper Harder * message.el (message-cater-to-broken-inn): Remove. - (message-shorten-references): Make the total folded length of + (message-shorten-references): Make sure the total folded length of References is shorter than 998 characters to cater to a bug in INN 2.3. Also, don't pretend that references aren't folded -- this hasn't worked for a while. diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index 5c6b097..c592d35 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -3190,8 +3190,7 @@ buffer that was in action when the last article was fetched." (push (eval (car locals)) vlist)) (setq locals (cdr locals))) (setq vlist (nreverse vlist))) - (save-excursion - (set-buffer gnus-group-buffer) + (with-current-buffer gnus-group-buffer (setq gnus-newsgroup-name name gnus-newsgroup-marked marked gnus-newsgroup-spam-marked spam @@ -4149,8 +4148,7 @@ the id of the parent article (if any)." (setq article (read (current-buffer)) header (gnus-nov-parse-line article dependencies))) (when header - (save-excursion - (set-buffer gnus-summary-buffer) + (with-current-buffer gnus-summary-buffer (push header gnus-newsgroup-headers) (if (memq (setq article (mail-header-number header)) gnus-newsgroup-unselected) @@ -5782,8 +5780,8 @@ The resulting hash table is returned, or nil if no Xrefs were found." (let ((cur nntp-server-buffer) (dependencies (or dependencies - (save-excursion (set-buffer gnus-summary-buffer) - gnus-newsgroup-dependencies))) + (with-current-buffer gnus-summary-buffer + gnus-newsgroup-dependencies))) headers id end ref (mail-parse-charset gnus-newsgroup-charset) (mail-parse-ignored-charsets @@ -6002,8 +6000,8 @@ Return a list of headers that match SEQUENCE (see (defun gnus-article-get-xrefs () "Fill in the Xref value in `gnus-current-headers', if necessary. This is meant to be called in `gnus-article-internal-prepare-hook'." - (let ((headers (save-excursion (set-buffer gnus-summary-buffer) - gnus-current-headers))) + (let ((headers (with-current-buffer gnus-summary-buffer + gnus-current-headers))) (or (not gnus-use-cross-reference) (not headers) (and (mail-header-xref headers) @@ -6175,8 +6173,7 @@ If optional argument BACKWARD is non-nil, search backward instead." (defun gnus-summary-best-group (&optional exclude-group) "Find the name of the best unread group. If EXCLUDE-GROUP, do not go to this group." - (save-excursion - (set-buffer gnus-group-buffer) + (with-current-buffer gnus-group-buffer (save-excursion (gnus-group-best-unread-group exclude-group)))) @@ -6551,8 +6548,7 @@ The prefix argument ALL means to select all articles." (setq gnus-newsgroup-killed (list gnus-newsgroup-killed))) (let ((headers gnus-newsgroup-headers)) ;; Set the new ranges of read articles. - (save-excursion - (set-buffer gnus-group-buffer) + (with-current-buffer gnus-group-buffer (gnus-undo-force-boundary)) (gnus-update-read-articles group (gnus-sorted-union @@ -6813,8 +6809,7 @@ The state which existed when entering the ephemeral is reset." ;; Kill any previous dead summary buffer. (when (and gnus-dead-summary (buffer-name gnus-dead-summary)) - (save-excursion - (set-buffer gnus-dead-summary) + (with-current-buffer gnus-dead-summary (when gnus-dead-summary-mode (kill-buffer (current-buffer))))) ;; Make this the current dead summary. @@ -6833,8 +6828,7 @@ The state which existed when entering the ephemeral is reset." (save-excursion (when (and (buffer-name buffer) (not gnus-single-article-buffer)) - (save-excursion - (set-buffer buffer) + (with-current-buffer buffer (gnus-kill-buffer gnus-article-buffer) (gnus-kill-buffer gnus-original-article-buffer))) (cond @@ -7199,8 +7193,7 @@ If BACKWARD, the previous article is selected instead of the next." (gnus-summary-jump-to-group gnus-newsgroup-name)) (let ((cmd last-command-char) (point - (save-excursion - (set-buffer gnus-group-buffer) + (with-current-buffer gnus-group-buffer (point))) (group (if (eq gnus-keep-same-level 'best) @@ -8318,8 +8311,7 @@ to guess what the document format is." (let* ((name (format "%s-%d" (gnus-group-prefixed-name gnus-newsgroup-name (list 'nndoc "")) - (save-excursion - (set-buffer gnus-summary-buffer) + (with-current-buffer gnus-summary-buffer gnus-current-article))) (ogroup gnus-newsgroup-name) (params (append (gnus-info-params (gnus-get-info ogroup)) @@ -9881,8 +9873,7 @@ ARTICLE can also be a list of articles." ;; (article-number . line-number-in-body). (push (cons article - (save-excursion - (set-buffer gnus-article-buffer) + (with-current-buffer gnus-article-buffer (count-lines (min (point) (save-excursion @@ -11545,8 +11536,7 @@ UNREAD is a sorted list." (dolist (buffer (buffer-list)) (when (and (setq buffer (buffer-name buffer)) (string-match "Summary" buffer) - (save-excursion - (set-buffer buffer) + (with-current-buffer buffer ;; We check that this is, indeed, a summary buffer. (and (eq major-mode 'gnus-summary-mode) ;; Also make sure this isn't bogus.