Mercurial > emacs
comparison lisp/gnus/gnus-sum.el @ 59028:4b8110af6bbe
(gnus-summary-mode-map): Map follow-link to mouse-face.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Fri, 17 Dec 2004 15:20:06 +0000 |
| parents | 9bdd97960431 |
| children | aac0a33f5772 eac554634bfa |
comparison
equal
deleted
inserted
replaced
| 59027:4154f5d4733b | 59028:4b8110af6bbe |
|---|---|
| 1701 "\C-c\C-d" gnus-summary-describe-group | 1701 "\C-c\C-d" gnus-summary-describe-group |
| 1702 "q" gnus-summary-exit | 1702 "q" gnus-summary-exit |
| 1703 "Q" gnus-summary-exit-no-update | 1703 "Q" gnus-summary-exit-no-update |
| 1704 "\C-c\C-i" gnus-info-find-node | 1704 "\C-c\C-i" gnus-info-find-node |
| 1705 gnus-mouse-2 gnus-mouse-pick-article | 1705 gnus-mouse-2 gnus-mouse-pick-article |
| 1706 [follow-link] mouse-face | |
| 1706 "m" gnus-summary-mail-other-window | 1707 "m" gnus-summary-mail-other-window |
| 1707 "a" gnus-summary-post-news | 1708 "a" gnus-summary-post-news |
| 1708 "i" gnus-summary-news-other-window | 1709 "i" gnus-summary-news-other-window |
| 1709 "x" gnus-summary-limit-to-unread | 1710 "x" gnus-summary-limit-to-unread |
| 1710 "s" gnus-summary-isearch-article | 1711 "s" gnus-summary-isearch-article |
| 5094 (error "Couldn't request group %s: %s" | 5095 (error "Couldn't request group %s: %s" |
| 5095 group (gnus-status-message group))) | 5096 group (gnus-status-message group))) |
| 5096 | 5097 |
| 5097 (when gnus-agent | 5098 (when gnus-agent |
| 5098 (gnus-agent-possibly-alter-active group (gnus-active group) info) | 5099 (gnus-agent-possibly-alter-active group (gnus-active group) info) |
| 5099 | 5100 |
| 5100 (setq gnus-summary-use-undownloaded-faces | 5101 (setq gnus-summary-use-undownloaded-faces |
| 5101 (gnus-agent-find-parameter | 5102 (gnus-agent-find-parameter |
| 5102 group | 5103 group |
| 5103 'agent-enable-undownloaded-faces))) | 5104 'agent-enable-undownloaded-faces))) |
| 5104 | 5105 |
| 7042 (save-excursion | 7043 (save-excursion |
| 7043 (dolist (article articles) | 7044 (dolist (article articles) |
| 7044 (gnus-summary-goto-subject article t))) | 7045 (gnus-summary-goto-subject article t))) |
| 7045 (gnus-summary-limit (append articles gnus-newsgroup-limit)) | 7046 (gnus-summary-limit (append articles gnus-newsgroup-limit)) |
| 7046 (gnus-summary-position-point)) | 7047 (gnus-summary-position-point)) |
| 7047 | 7048 |
| 7048 (defun gnus-summary-goto-subject (article &optional force silent) | 7049 (defun gnus-summary-goto-subject (article &optional force silent) |
| 7049 "Go the subject line of ARTICLE. | 7050 "Go the subject line of ARTICLE. |
| 7050 If FORCE, also allow jumping to articles not currently shown." | 7051 If FORCE, also allow jumping to articles not currently shown." |
| 7051 (interactive "nArticle number: ") | 7052 (interactive "nArticle number: ") |
| 7052 (unless (numberp article) | 7053 (unless (numberp article) |
| 9138 to-newsgroup | 9139 to-newsgroup |
| 9139 select-method)) | 9140 select-method)) |
| 9140 | 9141 |
| 9141 ;;;!!!Why is this necessary? | 9142 ;;;!!!Why is this necessary? |
| 9142 (set-buffer gnus-summary-buffer) | 9143 (set-buffer gnus-summary-buffer) |
| 9143 | 9144 |
| 9144 (gnus-summary-goto-subject article) | 9145 (gnus-summary-goto-subject article) |
| 9145 (when (eq action 'move) | 9146 (when (eq action 'move) |
| 9146 (gnus-summary-mark-article article gnus-canceled-mark)))) | 9147 (gnus-summary-mark-article article gnus-canceled-mark)))) |
| 9147 (gnus-summary-remove-process-mark article)) | 9148 (gnus-summary-remove-process-mark article)) |
| 9148 ;; Re-activate all groups that have been moved to. | 9149 ;; Re-activate all groups that have been moved to. |