Revision: miles@gnu.org--gnu-2004/gnus--devo--0--patch-200

Merge from gnus--rel--5.10

Patches applied:

 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-741
   Update from CVS

 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-750
   Merge from gnus--rel--5.10

 * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-79
 - miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-80
   Update from CVS

 * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-81
   Merge from emacs--cvs-trunk--0

2004-12-17  Kim F. Storm  <storm@cua.dk>

   * lisp/gnus-group.el (gnus-group-mode-map): Map follow-link to mouse-face.

   * lisp/gnus-sum.el (gnus-summary-mode-map): Likewise.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d2ad9e3..1ce4bf5 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2004-12-17  Kim F. Storm  <storm@cua.dk>
+
+       * gnus-group.el (gnus-group-mode-map): Map follow-link to mouse-face.
+
+       * gnus-sum.el (gnus-summary-mode-map): Likewise.
+
 2004-12-26  Tsuyoshi AKIHO  <akiho@kawachi.zaq.ne.jp>
 
        * gnus-sum.el (gnus-summary-walk-group-buffer): Decode group name.
@@ -1174,7 +1180,7 @@
        * gnus-delay.el (gnus-delay-default-hour): Add :version.
 
        * gnus-cite.el (gnus-cite-blank-line-after-header)
-       (gnus-article-boring-faces): 
+       (gnus-article-boring-faces):
 
        * gnus-art.el (gnus-buttonized-mime-types)
        (gnus-inhibit-mime-unbuttonizing)

diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index 8165d70..34aee41 100644 (file)
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -607,6 +607,7 @@ simple manner.")
   "\M-e" gnus-group-edit-group-method
   "^" gnus-group-enter-server-mode
   gnus-mouse-2 gnus-mouse-pick-group
+  [follow-link] mouse-face
   "<" beginning-of-buffer
   ">" end-of-buffer
   "\C-c\C-b" gnus-bug

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index edb5dd5..0608dff 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -1757,6 +1757,7 @@ increase the score of each group you read."
   "Q" gnus-summary-exit-no-update
   "\C-c\C-i" gnus-info-find-node
   gnus-mouse-2 gnus-mouse-pick-article
+  [follow-link] mouse-face
   "m" gnus-summary-mail-other-window
   "a" gnus-summary-post-news
   "i" gnus-summary-news-other-window
@@ -5156,7 +5157,7 @@ If SELECT-ARTICLES, only select those articles from GROUP."
 
     (when gnus-agent
       (gnus-agent-possibly-alter-active group (gnus-active group) info)
-      
+
       (setq gnus-summary-use-undownloaded-faces
            (gnus-agent-find-parameter
             group
@@ -7086,7 +7087,7 @@ If optional argument UNREAD is non-nil, only unread article is selected."
       (gnus-summary-goto-subject article t)))
   (gnus-summary-limit (append articles gnus-newsgroup-limit))
   (gnus-summary-position-point))
- 
+
 (defun gnus-summary-goto-subject (article &optional force silent)
   "Go the subject line of ARTICLE.
 If FORCE, also allow jumping to articles not currently shown."
@@ -9234,7 +9235,7 @@ ACTION can be either `move' (the default), `crosspost' or `copy'."
 
        ;;;!!!Why is this necessary?
        (set-buffer gnus-summary-buffer)
-       
+
        (gnus-summary-goto-subject article)
        (when (eq action 'move)
          (gnus-summary-mark-article article gnus-canceled-mark))))