Mercurial > hg > xemacs-beta
comparison lisp/gnus/gnus-sum.el @ 153:25f70ba0133c r20-3b3
Import from CVS: tag r20-3b3
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 09:38:25 +0200 |
| parents | 59463afc5666 |
| children | 43dd3413c7c7 |
comparison
equal
deleted
inserted
replaced
| 152:4c132ee2d62b | 153:25f70ba0133c |
|---|---|
| 5856 (mapcar (lambda (h) (mail-header-number h)) | 5856 (mapcar (lambda (h) (mail-header-number h)) |
| 5857 gnus-newsgroup-headers) | 5857 gnus-newsgroup-headers) |
| 5858 '<) | 5858 '<) |
| 5859 (sort gnus-newsgroup-limit '<))) | 5859 (sort gnus-newsgroup-limit '<))) |
| 5860 article) | 5860 article) |
| 5861 (setq gnus-newsgroup-unreads nil) | 5861 (setq gnus-newsgroup-unreads gnus-newsgroup-limit) |
| 5862 (if all | 5862 (if all |
| 5863 (setq gnus-newsgroup-dormant nil | 5863 (setq gnus-newsgroup-dormant nil |
| 5864 gnus-newsgroup-marked nil | 5864 gnus-newsgroup-marked nil |
| 5865 gnus-newsgroup-reads | 5865 gnus-newsgroup-reads |
| 5866 (nconc | 5866 (nconc |
| 6332 "Search for an article containing REGEXP. | 6332 "Search for an article containing REGEXP. |
| 6333 Optional argument BACKWARD means do search for backward. | 6333 Optional argument BACKWARD means do search for backward. |
| 6334 `gnus-select-article-hook' is not called during the search." | 6334 `gnus-select-article-hook' is not called during the search." |
| 6335 ;; We have to require this here to make sure that the following | 6335 ;; We have to require this here to make sure that the following |
| 6336 ;; dynamic binding isn't shadowed by autoloading. | 6336 ;; dynamic binding isn't shadowed by autoloading. |
| 6337 (require 'gnus-asynch) | 6337 (require 'gnus-async) |
| 6338 (let ((gnus-select-article-hook nil) ;Disable hook. | 6338 (let ((gnus-select-article-hook nil) ;Disable hook. |
| 6339 (gnus-article-display-hook nil) | 6339 (gnus-article-display-hook nil) |
| 6340 (gnus-mark-article-hook nil) ;Inhibit marking as read. | 6340 (gnus-mark-article-hook nil) ;Inhibit marking as read. |
| 6341 (gnus-use-article-prefetch nil) | 6341 (gnus-use-article-prefetch nil) |
| 6342 (gnus-xmas-force-redisplay nil) ;Inhibit XEmacs redisplay. | 6342 (gnus-xmas-force-redisplay nil) ;Inhibit XEmacs redisplay. |
| 6661 (setq | 6661 (setq |
| 6662 art-group | 6662 art-group |
| 6663 (cond | 6663 (cond |
| 6664 ;; Move the article. | 6664 ;; Move the article. |
| 6665 ((eq action 'move) | 6665 ((eq action 'move) |
| 6666 ;; Remove this article from future suppression. | |
| 6667 (gnus-dup-unsuppress-article article) | |
| 6666 (gnus-request-move-article | 6668 (gnus-request-move-article |
| 6667 article ; Article to move | 6669 article ; Article to move |
| 6668 gnus-newsgroup-name ; From newsgroup | 6670 gnus-newsgroup-name ; From newsgroup |
| 6669 (nth 1 (gnus-find-method-for-group | 6671 (nth 1 (gnus-find-method-for-group |
| 6670 gnus-newsgroup-name)) ; Server | 6672 gnus-newsgroup-name)) ; Server |
| 6802 ;; Re-activate all groups that have been moved to. | 6804 ;; Re-activate all groups that have been moved to. |
| 6803 (while to-groups | 6805 (while to-groups |
| 6804 (save-excursion | 6806 (save-excursion |
| 6805 (set-buffer gnus-group-buffer) | 6807 (set-buffer gnus-group-buffer) |
| 6806 (when (gnus-group-goto-group (car to-groups) t) | 6808 (when (gnus-group-goto-group (car to-groups) t) |
| 6807 (gnus-group-get-new-news-this-group 1)) | 6809 (gnus-group-get-new-news-this-group 1 t)) |
| 6808 (pop to-groups))) | 6810 (pop to-groups))) |
| 6809 | 6811 |
| 6810 (gnus-kill-buffer copy-buf) | 6812 (gnus-kill-buffer copy-buf) |
| 6811 (gnus-summary-position-point) | 6813 (gnus-summary-position-point) |
| 6812 (gnus-set-mode-line 'summary))) | 6814 (gnus-set-mode-line 'summary))) |