Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-sum.el @ 140:585fb297b004 r20-2b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b4
author cvs
date Mon, 13 Aug 2007 09:32:43 +0200
parents b980b6286996
children 1856695b1fa9
comparison
equal deleted inserted replaced
139:2b5203979d01 140:585fb297b004
4849 (gnus-set-global-variables) 4849 (gnus-set-global-variables)
4850 (gnus-kill-save-kill-buffer) 4850 (gnus-kill-save-kill-buffer)
4851 (let* ((group gnus-newsgroup-name) 4851 (let* ((group gnus-newsgroup-name)
4852 (quit-config (gnus-group-quit-config gnus-newsgroup-name)) 4852 (quit-config (gnus-group-quit-config gnus-newsgroup-name))
4853 (mode major-mode) 4853 (mode major-mode)
4854 (group-point nil)
4854 (buf (current-buffer))) 4855 (buf (current-buffer)))
4855 (run-hooks 'gnus-summary-prepare-exit-hook) 4856 (run-hooks 'gnus-summary-prepare-exit-hook)
4856 ;; If we have several article buffers, we kill them at exit. 4857 ;; If we have several article buffers, we kill them at exit.
4857 (unless gnus-single-article-buffer 4858 (unless gnus-single-article-buffer
4858 (gnus-kill-buffer gnus-original-article-buffer) 4859 (gnus-kill-buffer gnus-original-article-buffer)
4875 (unless quit-config 4876 (unless quit-config
4876 (gnus-group-jump-to-group group)) 4877 (gnus-group-jump-to-group group))
4877 (run-hooks 'gnus-summary-exit-hook) 4878 (run-hooks 'gnus-summary-exit-hook)
4878 (unless quit-config 4879 (unless quit-config
4879 (gnus-group-next-unread-group 1)) 4880 (gnus-group-next-unread-group 1))
4881 (setq group-point (point))
4880 (if temporary 4882 (if temporary
4881 nil ;Nothing to do. 4883 nil ;Nothing to do.
4882 ;; If we have several article buffers, we kill them at exit. 4884 ;; If we have several article buffers, we kill them at exit.
4883 (unless gnus-single-article-buffer 4885 (unless gnus-single-article-buffer
4884 (gnus-kill-buffer gnus-article-buffer) 4886 (gnus-kill-buffer gnus-article-buffer)
4904 (setq gnus-current-select-method gnus-select-method) 4906 (setq gnus-current-select-method gnus-select-method)
4905 (pop-to-buffer gnus-group-buffer) 4907 (pop-to-buffer gnus-group-buffer)
4906 ;; Clear the current group name. 4908 ;; Clear the current group name.
4907 (if (not quit-config) 4909 (if (not quit-config)
4908 (progn 4910 (progn
4909 (gnus-group-jump-to-group group) 4911 (goto-char group-point)
4910 (gnus-group-next-unread-group 1)
4911 (gnus-configure-windows 'group 'force)) 4912 (gnus-configure-windows 'group 'force))
4912 (gnus-handle-ephemeral-exit quit-config)) 4913 (gnus-handle-ephemeral-exit quit-config))
4913 (unless quit-config 4914 (unless quit-config
4914 (setq gnus-newsgroup-name nil))))) 4915 (setq gnus-newsgroup-name nil)))))
4915 4916
6153 (sparse (and header 6154 (sparse (and header
6154 (gnus-summary-article-sparse-p 6155 (gnus-summary-article-sparse-p
6155 (mail-header-number header))))) 6156 (mail-header-number header)))))
6156 (if header 6157 (if header
6157 (prog1 6158 (prog1
6158 ;; The article is present in the buffer, to we just go to it. 6159 ;; The article is present in the buffer, so we just go to it.
6159 (gnus-summary-goto-article 6160 (gnus-summary-goto-article
6160 (mail-header-number header) nil header) 6161 (mail-header-number header) nil t)
6161 (when sparse 6162 (when sparse
6162 (gnus-summary-update-article (mail-header-number header)))) 6163 (gnus-summary-update-article (mail-header-number header))))
6163 ;; We fetch the article 6164 ;; We fetch the article
6164 (let ((gnus-override-method 6165 (let ((gnus-override-method
6165 (cond ((gnus-news-group-p gnus-newsgroup-name) 6166 (cond ((gnus-news-group-p gnus-newsgroup-name)
8638 (setq unread (cdr unread))) 8639 (setq unread (cdr unread)))
8639 (when (<= prev (cdr active)) 8640 (when (<= prev (cdr active))
8640 (push (cons prev (cdr active)) read)) 8641 (push (cons prev (cdr active)) read))
8641 (save-excursion 8642 (save-excursion
8642 (set-buffer gnus-group-buffer) 8643 (set-buffer gnus-group-buffer)
8644 (gnus-undo-force-boundary)
8643 (gnus-undo-register 8645 (gnus-undo-register
8644 `(progn 8646 `(progn
8645 (gnus-info-set-marks ',info ',(gnus-info-marks info) t) 8647 (gnus-info-set-marks ',info ',(gnus-info-marks info) t)
8646 (gnus-info-set-read ',info ',(gnus-info-read info)) 8648 (gnus-info-set-read ',info ',(gnus-info-read info))
8647 (gnus-get-unread-articles-in-group ',info (gnus-active ,group)) 8649 (gnus-get-unread-articles-in-group ',info (gnus-active ,group))