X-Git-Url: https://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fgnus-sum.el;h=cd836dd338e36743e2386d7cbc5123c8a3120331;hb=f6234873d0f9a0ee9b26beab123cf4e9d77099c8;hp=c04bf7abdfe6d90650fdef173bbeb0d96657da8e;hpb=f59e2e33112ea1a959113c4bdc0c4ee9c26b51d7;p=gnus diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index c04bf7abd..cd836dd33 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -2082,7 +2082,7 @@ increase the score of each group you read." "g" gnus-summary-show-article "s" gnus-summary-isearch-article [tab] gnus-summary-widget-forward - [backtab] gnus-summary-widget-forward + [backtab] gnus-summary-widget-backward "P" gnus-summary-print-article "S" gnus-sticky-article "M" gnus-mailing-list-insinuate @@ -7330,9 +7330,11 @@ If FORCE (the prefix), also save the .newsrc file(s)." (gnus-kill-buffer gnus-original-article-buffer) (setq gnus-article-current nil)) ;; Return to the group buffer. - (gnus-configure-windows 'group 'force) (if (not gnus-kill-summary-on-exit) - (gnus-deaden-summary) + (progn + (gnus-deaden-summary) + (gnus-configure-windows 'group 'force)) + (gnus-configure-windows 'group 'force) (gnus-close-group group) (gnus-kill-buffer gnus-summary-buffer)) (unless gnus-single-article-buffer @@ -7354,7 +7356,7 @@ If FORCE (the prefix), also save the .newsrc file(s)." (defun gnus-handle-ephemeral-exit (quit-config) "Handle movement when leaving an ephemeral group. The state which existed when entering the ephemeral is reset." - (if (not (buffer-name (car quit-config))) + (if (not (buffer-live-p (car quit-config))) (gnus-configure-windows 'group 'force) (set-buffer (car quit-config)) (unless (eq (cdr quit-config) 'group) @@ -11592,8 +11594,10 @@ Returns nil if no thread was there to be shown." (beg (progn (beginning-of-line) (if (bobp) (point) (1- (point))))) (eoi (when end (if (fboundp 'next-single-char-property-change) - (or (next-single-char-property-change end 'invisible) - (point-max)) + (if (featurep 'xemacs) + (or (next-single-char-property-change end 'invisible) + (point-max)) + (next-single-char-property-change end 'invisible)) (while (progn (end-of-line 2) (and (not (eobp))