X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=blobdiff_plain;f=lisp%2Fgnus-sum.el;h=2a94b6be9a2818d11220836adf4c518e42438d53;hp=e89da4b8d962c5f32490ad039fa67b014469d266;hb=2c72c16029efd2b18f404fd14e7b22c7310f9943;hpb=d96d162f16b011eecdf968fbbb06024cdbc23772 diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index e89da4b8d..2a94b6be9 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -6155,9 +6155,9 @@ or `gnus-select-method', no matter what backend the article comes from." (mail-header-number header))))) (if header (prog1 - ;; The article is present in the buffer, to we just go to it. + ;; The article is present in the buffer, so we just go to it. (gnus-summary-goto-article - (mail-header-number header) nil header) + (mail-header-number header) nil t) (when sparse (gnus-summary-update-article (mail-header-number header)))) ;; We fetch the article @@ -8640,6 +8640,7 @@ save those articles instead." (push (cons prev (cdr active)) read)) (save-excursion (set-buffer gnus-group-buffer) + (gnus-undo-boundary) (gnus-undo-register `(progn (gnus-info-set-marks ',info ',(gnus-info-marks info) t)