Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-sum.el @ 120:cca96a509cfe r20-1b12

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b12
author cvs
date Mon, 13 Aug 2007 09:25:29 +0200
parents 7d55a9ba150c
children d2f30a177268
comparison
equal deleted inserted replaced
119:d101af7320b8 120:cca96a509cfe
712 712
713 713
714 ;;; Internal variables 714 ;;; Internal variables
715 715
716 (defvar gnus-scores-exclude-files nil) 716 (defvar gnus-scores-exclude-files nil)
717 (defvar gnus-page-broken nil)
717 718
718 (defvar gnus-original-article nil) 719 (defvar gnus-original-article nil)
719 (defvar gnus-article-internal-prepare-hook nil) 720 (defvar gnus-article-internal-prepare-hook nil)
720 (defvar gnus-newsgroup-process-stack nil) 721 (defvar gnus-newsgroup-process-stack nil)
721 722
5125 ;; There are no further groups, so we return to the group 5126 ;; There are no further groups, so we return to the group
5126 ;; buffer. 5127 ;; buffer.
5127 (progn 5128 (progn
5128 (gnus-message 5 "Returning to the group buffer") 5129 (gnus-message 5 "Returning to the group buffer")
5129 (setq entered t) 5130 (setq entered t)
5130 (set-buffer current-buffer) 5131 (when (buffer-live-p current-buffer)
5131 (gnus-summary-exit) 5132 (set-buffer current-buffer)
5133 (gnus-summary-exit))
5132 (run-hooks 'gnus-group-no-more-groups-hook)) 5134 (run-hooks 'gnus-group-no-more-groups-hook))
5133 ;; We try to enter the target group. 5135 ;; We try to enter the target group.
5134 (gnus-group-jump-to-group target-group) 5136 (gnus-group-jump-to-group target-group)
5135 (let ((unreads (gnus-group-group-unread))) 5137 (let ((unreads (gnus-group-group-unread)))
5136 (if (and (or (eq t unreads) 5138 (if (and (or (eq t unreads)
6426 (gnus-summary-select-article) 6428 (gnus-summary-select-article)
6427 (gnus-configure-windows 'article) 6429 (gnus-configure-windows 'article)
6428 (gnus-eval-in-buffer-window gnus-article-buffer 6430 (gnus-eval-in-buffer-window gnus-article-buffer
6429 (widen) 6431 (widen)
6430 (goto-char (point-min)) 6432 (goto-char (point-min))
6431 (when gnus-break-pages 6433 (when gnus-page-broken
6432 (gnus-narrow-to-page)))) 6434 (gnus-narrow-to-page))))
6433 6435
6434 (defun gnus-summary-end-of-article () 6436 (defun gnus-summary-end-of-article ()
6435 "Scroll to the end of the article." 6437 "Scroll to the end of the article."
6436 (interactive) 6438 (interactive)
6439 (gnus-configure-windows 'article) 6441 (gnus-configure-windows 'article)
6440 (gnus-eval-in-buffer-window gnus-article-buffer 6442 (gnus-eval-in-buffer-window gnus-article-buffer
6441 (widen) 6443 (widen)
6442 (goto-char (point-max)) 6444 (goto-char (point-max))
6443 (recenter -3) 6445 (recenter -3)
6444 (when gnus-break-pages 6446 (when gnus-page-broken
6445 (gnus-narrow-to-page)))) 6447 (gnus-narrow-to-page))))
6446 6448
6447 (defun gnus-summary-print-article (&optional filename) 6449 (defun gnus-summary-print-article (&optional filename)
6448 "Generate and print a PostScript image of the article buffer. 6450 "Generate and print a PostScript image of the article buffer.
6449 6451
6479 gnus-article-prepare-hook 6481 gnus-article-prepare-hook
6480 gnus-break-pages 6482 gnus-break-pages
6481 gnus-visual) 6483 gnus-visual)
6482 (gnus-summary-select-article nil 'force))) 6484 (gnus-summary-select-article nil 'force)))
6483 (gnus-summary-goto-subject gnus-current-article) 6485 (gnus-summary-goto-subject gnus-current-article)
6484 ; (gnus-configure-windows 'article)
6485 (gnus-summary-position-point)) 6486 (gnus-summary-position-point))
6486 6487
6487 (defun gnus-summary-verbose-headers (&optional arg) 6488 (defun gnus-summary-verbose-headers (&optional arg)
6488 "Toggle permanent full header display. 6489 "Toggle permanent full header display.
6489 If ARG is a positive number, turn header display on. 6490 If ARG is a positive number, turn header display on.
6751 (intern (format "gnus-newsgroup-%s" 6752 (intern (format "gnus-newsgroup-%s"
6752 (caar marks))))))) 6753 (caar marks)))))))
6753 ;; Copy the marks to other group. 6754 ;; Copy the marks to other group.
6754 (gnus-add-marked-articles 6755 (gnus-add-marked-articles
6755 to-group (cdar marks) (list to-article) info)) 6756 to-group (cdar marks) (list to-article) info))
6756 (setq marks (cdr marks))))) 6757 (setq marks (cdr marks)))
6758
6759 (gnus-dribble-enter
6760 (concat "(gnus-group-set-info '"
6761 (gnus-prin1-to-string (gnus-get-info to-group))
6762 ")"))))
6757 6763
6758 ;; Update the Xref header in this article to point to 6764 ;; Update the Xref header in this article to point to
6759 ;; the new crossposted article we have just created. 6765 ;; the new crossposted article we have just created.
6760 (when (eq action 'crosspost) 6766 (when (eq action 'crosspost)
6761 (save-excursion 6767 (save-excursion