diff options
| author | Kim F. Storm | 2004-12-17 15:20:06 +0000 |
|---|---|---|
| committer | Kim F. Storm | 2004-12-17 15:20:06 +0000 |
| commit | 132cf96dff182358577c15bcd401eb3cd9bd6f4a (patch) | |
| tree | ec232c4bc01731566327eab020c5feb0003ffb6f | |
| parent | 1c4976249b4116dc1fce6ac00fc2cc81ea2f7214 (diff) | |
| download | emacs-132cf96dff182358577c15bcd401eb3cd9bd6f4a.tar.gz emacs-132cf96dff182358577c15bcd401eb3cd9bd6f4a.zip | |
(gnus-summary-mode-map): Map follow-link to mouse-face.
| -rw-r--r-- | lisp/gnus/gnus-sum.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el index 03e1624237e..c4f320e888b 100644 --- a/lisp/gnus/gnus-sum.el +++ b/lisp/gnus/gnus-sum.el | |||
| @@ -1703,6 +1703,7 @@ increase the score of each group you read." | |||
| 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 |
| @@ -5096,7 +5097,7 @@ If SELECT-ARTICLES, only select those articles from 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 |
| @@ -7044,7 +7045,7 @@ If optional argument UNREAD is non-nil, only unread article is selected." | |||
| 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." |
| @@ -9140,7 +9141,7 @@ ACTION can be either `move' (the default), `crosspost' or `copy'." | |||
| 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)))) |