Commit d0859c9a authored by Miles Bader's avatar Miles Bader
Browse files

Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-324

Merge from gnus--rel--5.10

Patches applied:

 * gnus--rel--5.10  (patch 70)

   - Update from CVS

2005-05-17  Katsumi Yamaoka  <yamaoka@jpl.org>

   * lisp/gnus/canlock.el (canlock): Change the parent group to news.

   * lisp/gnus/deuglify.el (gnus-outlook-deuglify): Add :group.

   * lisp/gnus/dig.el (dig): Add :group.

   * lisp/gnus/gnus-art.el (gnus-inhibit-mime-unbuttonizing): Add :group.

   * lisp/gnus/gnus-cite.el (gnus-cite-attribution-face): Add :group.
   (gnus-cite-face-1, gnus-cite-face-2, gnus-cite-face-3): Ditto.
   (gnus-cite-face-4, gnus-cite-face-5, gnus-cite-face-6): Ditto.
   (gnus-cite-face-7, gnus-cite-face-8, gnus-cite-face-9): Ditto.
   (gnus-cite-face-10, gnus-cite-face-11): Ditto.

   * lisp/gnus/gnus-diary.el (gnus-diary): Add :group.

   * lisp/gnus/gnus.el (gnus-group-news-1-face): Add :group.
   (gnus-group-news-1-empty-face): Ditto.
   (gnus-group-news-2-face, gnus-group-news-2-empty-face): Ditto.
   (gnus-group-news-3-face, gnus-group-news-3-empty-face): Ditto.
   (gnus-group-news-4-face, gnus-group-news-4-empty-face): Ditto.
   (gnus-group-news-5-face, gnus-group-news-5-empty-face): Ditto.
   (gnus-group-news-6-face, gnus-group-news-6-empty-face): Ditto.
   (gnus-group-news-low-face, gnus-group-news-low-empty-face): Ditto.
   (gnus-group-mail-1-face, gnus-group-mail-1-empty-face): Ditto.
   (gnus-group-mail-2-face, gnus-group-mail-2-empty-face): Ditto.
   (gnus-group-mail-3-face, gnus-group-mail-3-empty-face): Ditto.
   (gnus-group-mail-low-face, gnus-group-mail-low-empty-face): Ditto.
   (gnus-summary-selected-face, gnus-summary-cancelled-face): Ditto.
   (gnus-summary-high-ticked-face): Ditto.
   (gnus-summary-low-ticked-face): Ditto.
   (gnus-summary-normal-ticked-face): Ditto.
   (gnus-summary-high-ancient-face): Ditto.
   (gnus-summary-low-ancient-face): Ditto.
   (gnus-summary-normal-ancient-face): Ditto.
   (gnus-summary-high-undownloaded-face): Ditto.
   (gnus-summary-low-undownloaded-face): Ditto.
   (gnus-summary-normal-undownloaded-face): Ditto.
   (gnus-summary-high-unread-face): Ditto.
   (gnus-summary-low-unread-face): Ditto.
   (gnus-summary-normal-unread-face): Ditto.
   (gnus-summary-high-read-face, gnus-summary-low-read-face): Diito
   (gnus-summary-normal-read-face, gnus-splash-face): Ditto.

   * lisp/gnus/message.el (message-minibuffer-local-map): Add :group.

   * lisp/gnus/sieve-manage.el (sieve-manage-log): Add :group.
   (sieve-manage-default-user): Diito.
   (sieve-manage-server-eol, sieve-manage-client-eol): Ditto.
   (sieve-manage-streams, sieve-manage-stream-alist): Ditto.
   (sieve-manage-authenticators): Ditto.
   (sieve-manage-authenticator-alist): Ditto
   (sieve-manage-default-port): Ditto.

   * lisp/gnus/sieve-mode.el (sieve-control-commands-face): Add :group.
   (sieve-action-commands-face): Ditto.
   (sieve-test-commands-face): Ditto.
   (sieve-tagged-arguments-face): Ditto.

   * lisp/gnus/smime.el (smime): Add :group.

   * lisp/gnus/spam-report.el (spam-report): Add :group.

   * lisp/gnus/spam.el (spam, spam-face): Add :group.
parent 6e604a9b
2005-05-17 Katsumi Yamaoka <yamaoka@jpl.org>
* canlock.el (canlock): Change the parent group to news.
* deuglify.el (gnus-outlook-deuglify): Add :group.
* dig.el (dig): Add :group.
* gnus-art.el (gnus-inhibit-mime-unbuttonizing): Add :group.
* gnus-cite.el (gnus-cite-attribution-face): Add :group.
(gnus-cite-face-1, gnus-cite-face-2, gnus-cite-face-3): Ditto.
(gnus-cite-face-4, gnus-cite-face-5, gnus-cite-face-6): Ditto.
(gnus-cite-face-7, gnus-cite-face-8, gnus-cite-face-9): Ditto.
(gnus-cite-face-10, gnus-cite-face-11): Ditto.
* gnus-diary.el (gnus-diary): Add :group.
* gnus.el (gnus-group-news-1-face): Add :group.
(gnus-group-news-1-empty-face): Ditto.
(gnus-group-news-2-face, gnus-group-news-2-empty-face): Ditto.
(gnus-group-news-3-face, gnus-group-news-3-empty-face): Ditto.
(gnus-group-news-4-face, gnus-group-news-4-empty-face): Ditto.
(gnus-group-news-5-face, gnus-group-news-5-empty-face): Ditto.
(gnus-group-news-6-face, gnus-group-news-6-empty-face): Ditto.
(gnus-group-news-low-face, gnus-group-news-low-empty-face): Ditto.
(gnus-group-mail-1-face, gnus-group-mail-1-empty-face): Ditto.
(gnus-group-mail-2-face, gnus-group-mail-2-empty-face): Ditto.
(gnus-group-mail-3-face, gnus-group-mail-3-empty-face): Ditto.
(gnus-group-mail-low-face, gnus-group-mail-low-empty-face): Ditto.
(gnus-summary-selected-face, gnus-summary-cancelled-face): Ditto.
(gnus-summary-high-ticked-face): Ditto.
(gnus-summary-low-ticked-face): Ditto.
(gnus-summary-normal-ticked-face): Ditto.
(gnus-summary-high-ancient-face): Ditto.
(gnus-summary-low-ancient-face): Ditto.
(gnus-summary-normal-ancient-face): Ditto.
(gnus-summary-high-undownloaded-face): Ditto.
(gnus-summary-low-undownloaded-face): Ditto.
(gnus-summary-normal-undownloaded-face): Ditto.
(gnus-summary-high-unread-face): Ditto.
(gnus-summary-low-unread-face): Ditto.
(gnus-summary-normal-unread-face): Ditto.
(gnus-summary-high-read-face, gnus-summary-low-read-face): Diito
(gnus-summary-normal-read-face, gnus-splash-face): Ditto.
* message.el (message-minibuffer-local-map): Add :group.
* sieve-manage.el (sieve-manage-log): Add :group.
(sieve-manage-default-user): Diito.
(sieve-manage-server-eol, sieve-manage-client-eol): Ditto.
(sieve-manage-streams, sieve-manage-stream-alist): Ditto.
(sieve-manage-authenticators): Ditto.
(sieve-manage-authenticator-alist): Ditto
(sieve-manage-default-port): Ditto.
* sieve-mode.el (sieve-control-commands-face): Add :group.
(sieve-action-commands-face): Ditto.
(sieve-test-commands-face): Ditto.
(sieve-tagged-arguments-face): Ditto.
* smime.el (smime): Add :group.
* spam-report.el (spam-report): Add :group.
* spam.el (spam, spam-face): Add :group.
2005-05-26 Lute Kamstra <lute@gnu.org>
* score-mode.el (gnus-score-mode): Use run-mode-hooks.
......
;;; canlock.el --- functions for Cancel-Lock feature
;; Copyright (C) 1998, 1999, 2001, 2002, 2003, 2004
;; Copyright (C) 1998, 1999, 2001, 2002, 2003, 2004, 2005
;; Free Software Foundation, Inc.
;; Author: Katsumi Yamaoka <yamaoka@jpl.org>
......@@ -50,7 +50,7 @@
(defgroup canlock nil
"The Cancel-Lock feature."
:group 'applications)
:group 'news)
(defcustom canlock-password nil
"Password to use when signing a Cancel-Lock or a Cancel-Key header."
......
;;; deuglify.el --- deuglify broken Outlook (Express) articles
;; Copyright (C) 2002, 2003, 2004 Free Software Foundation, Inc.
;; Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc.
;; Copyright (C) 2001, 2002 Raymond Scholz
;; Author: Raymond Scholz <rscholz@zonix.de>
......@@ -231,7 +231,8 @@
(defgroup gnus-outlook-deuglify nil
"Deuglify articles generated by broken user agents like MS Outlook (Express)."
:version "22.1")
:version "22.1"
:group 'gnus)
;;;###autoload
(defcustom gnus-outlook-deuglify-unwrap-min 45
......
;;; dig.el --- Domain Name System dig interface
;; Copyright (c) 2000, 2001, 2003 Free Software Foundation, Inc.
;; Copyright (c) 2000, 2001, 2003, 2005 Free Software Foundation, Inc.
;; Author: Simon Josefsson <simon@josefsson.org>
;; Keywords: DNS BIND dig
......@@ -40,7 +40,8 @@
(eval-when-compile (require 'cl))
(defgroup dig nil
"Dig configuration.")
"Dig configuration."
:group 'comm)
(defcustom dig-program "dig"
"Name of dig (domain information groper) binary."
......
......@@ -814,6 +814,7 @@ When nil (the default value), then some MIME parts do not get buttons,
as described by the variables `gnus-buttonized-mime-types' and
`gnus-unbuttonized-mime-types'."
:version "22.1"
:group 'gnus-article-mime
:type 'boolean)
(defcustom gnus-body-boundary-delimiter "_"
......
;;; gnus-cite.el --- parse citations in articles for Gnus
;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004
;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
;; 2005
;; Free Software Foundation, Inc.
;; Author: Per Abhiddenware
......@@ -138,7 +139,8 @@ the envelope From line."
(defface gnus-cite-attribution-face '((t
(:italic t)))
"Face used for attribution lines.")
"Face used for attribution lines."
:group 'gnus-cite)
(defcustom gnus-cite-attribution-face 'gnus-cite-attribution-face
"Face used for attribution lines.
......@@ -155,7 +157,8 @@ It is merged with the face for the cited text belonging to the attribution."
(:foreground "MidnightBlue"))
(t
(:italic t)))
"Citation face.")
"Citation face."
:group 'gnus-cite)
(defface gnus-cite-face-2 '((((class color)
(background dark))
......@@ -165,7 +168,8 @@ It is merged with the face for the cited text belonging to the attribution."
(:foreground "firebrick"))
(t
(:italic t)))
"Citation face.")
"Citation face."
:group 'gnus-cite)
(defface gnus-cite-face-3 '((((class color)
(background dark))
......@@ -175,7 +179,8 @@ It is merged with the face for the cited text belonging to the attribution."
(:foreground "dark green"))
(t
(:italic t)))
"Citation face.")
"Citation face."
:group 'gnus-cite)
(defface gnus-cite-face-4 '((((class color)
(background dark))
......@@ -185,7 +190,8 @@ It is merged with the face for the cited text belonging to the attribution."
(:foreground "OrangeRed"))
(t
(:italic t)))
"Citation face.")
"Citation face."
:group 'gnus-cite)
(defface gnus-cite-face-5 '((((class color)
(background dark))
......@@ -195,7 +201,8 @@ It is merged with the face for the cited text belonging to the attribution."
(:foreground "dark khaki"))
(t
(:italic t)))
"Citation face.")
"Citation face."
:group 'gnus-cite)
(defface gnus-cite-face-6 '((((class color)
(background dark))
......@@ -205,7 +212,8 @@ It is merged with the face for the cited text belonging to the attribution."
(:foreground "dark violet"))
(t
(:italic t)))
"Citation face.")
"Citation face."
:group 'gnus-cite)
(defface gnus-cite-face-7 '((((class color)
(background dark))
......@@ -215,7 +223,8 @@ It is merged with the face for the cited text belonging to the attribution."
(:foreground "SteelBlue4"))
(t
(:italic t)))
"Citation face.")
"Citation face."
:group 'gnus-cite)
(defface gnus-cite-face-8 '((((class color)
(background dark))
......@@ -225,7 +234,8 @@ It is merged with the face for the cited text belonging to the attribution."
(:foreground "magenta"))
(t
(:italic t)))
"Citation face.")
"Citation face."
:group 'gnus-cite)
(defface gnus-cite-face-9 '((((class color)
(background dark))
......@@ -235,7 +245,8 @@ It is merged with the face for the cited text belonging to the attribution."
(:foreground "violet"))
(t
(:italic t)))
"Citation face.")
"Citation face."
:group 'gnus-cite)
(defface gnus-cite-face-10 '((((class color)
(background dark))
......@@ -245,7 +256,8 @@ It is merged with the face for the cited text belonging to the attribution."
(:foreground "medium purple"))
(t
(:italic t)))
"Citation face.")
"Citation face."
:group 'gnus-cite)
(defface gnus-cite-face-11 '((((class color)
(background dark))
......@@ -255,7 +267,8 @@ It is merged with the face for the cited text belonging to the attribution."
(:foreground "turquoise"))
(t
(:italic t)))
"Citation face.")
"Citation face."
:group 'gnus-cite)
(defcustom gnus-cite-face-list
'(gnus-cite-face-1 gnus-cite-face-2 gnus-cite-face-3 gnus-cite-face-4
......
;;; gnus-diary.el --- Wrapper around the NNDiary Gnus backend
;; Copyright (c) 2001, 2002, 2003 Free Software Foundation, Inc.
;; Copyright (c) 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc.
;; Copyright (C) 1999, 2000, 2001 Didier Verna.
;; Author: Didier Verna <didier@xemacs.org>
......@@ -103,7 +103,8 @@
(defgroup gnus-diary nil
"Utilities on top of the nndiary backend for Gnus."
:version "22.1")
:version "22.1"
:group 'gnus)
(defcustom gnus-diary-summary-line-format "%U%R%z %uD: %(%s%) (%ud)\n"
"*Summary line format for nndiary groups."
......
......@@ -366,7 +366,8 @@ be set in `.emacs' instead."
(:foreground "ForestGreen" :bold t))
(t
()))
"Level 1 newsgroup face.")
"Level 1 newsgroup face."
:group 'gnus-group)
(defface gnus-group-news-1-empty-face
'((((class color)
......@@ -377,7 +378,8 @@ be set in `.emacs' instead."
(:foreground "ForestGreen"))
(t
()))
"Level 1 empty newsgroup face.")
"Level 1 empty newsgroup face."
:group 'gnus-group)
(defface gnus-group-news-2-face
'((((class color)
......@@ -388,7 +390,8 @@ be set in `.emacs' instead."
(:foreground "CadetBlue4" :bold t))
(t
()))
"Level 2 newsgroup face.")
"Level 2 newsgroup face."
:group 'gnus-group)
(defface gnus-group-news-2-empty-face
'((((class color)
......@@ -399,7 +402,8 @@ be set in `.emacs' instead."
(:foreground "CadetBlue4"))
(t
()))
"Level 2 empty newsgroup face.")
"Level 2 empty newsgroup face."
:group 'gnus-group)
(defface gnus-group-news-3-face
'((((class color)
......@@ -410,7 +414,8 @@ be set in `.emacs' instead."
(:bold t))
(t
()))
"Level 3 newsgroup face.")
"Level 3 newsgroup face."
:group 'gnus-group)
(defface gnus-group-news-3-empty-face
'((((class color)
......@@ -421,7 +426,8 @@ be set in `.emacs' instead."
())
(t
()))
"Level 3 empty newsgroup face.")
"Level 3 empty newsgroup face."
:group 'gnus-group)
(defface gnus-group-news-4-face
'((((class color)
......@@ -432,7 +438,8 @@ be set in `.emacs' instead."
(:bold t))
(t
()))
"Level 4 newsgroup face.")
"Level 4 newsgroup face."
:group 'gnus-group)
(defface gnus-group-news-4-empty-face
'((((class color)
......@@ -443,7 +450,8 @@ be set in `.emacs' instead."
())
(t
()))
"Level 4 empty newsgroup face.")
"Level 4 empty newsgroup face."
:group 'gnus-group)
(defface gnus-group-news-5-face
'((((class color)
......@@ -454,7 +462,8 @@ be set in `.emacs' instead."
(:bold t))
(t
()))
"Level 5 newsgroup face.")
"Level 5 newsgroup face."
:group 'gnus-group)
(defface gnus-group-news-5-empty-face
'((((class color)
......@@ -465,7 +474,8 @@ be set in `.emacs' instead."
())
(t
()))
"Level 5 empty newsgroup face.")
"Level 5 empty newsgroup face."
:group 'gnus-group)
(defface gnus-group-news-6-face
'((((class color)
......@@ -476,7 +486,8 @@ be set in `.emacs' instead."
(:bold t))
(t
()))
"Level 6 newsgroup face.")
"Level 6 newsgroup face."
:group 'gnus-group)
(defface gnus-group-news-6-empty-face
'((((class color)
......@@ -487,7 +498,8 @@ be set in `.emacs' instead."
())
(t
()))
"Level 6 empty newsgroup face.")
"Level 6 empty newsgroup face."
:group 'gnus-group)
(defface gnus-group-news-low-face
'((((class color)
......@@ -498,7 +510,8 @@ be set in `.emacs' instead."
(:foreground "DarkGreen" :bold t))
(t
()))
"Low level newsgroup face.")
"Low level newsgroup face."
:group 'gnus-group)
(defface gnus-group-news-low-empty-face
'((((class color)
......@@ -509,7 +522,8 @@ be set in `.emacs' instead."
(:foreground "DarkGreen"))
(t
()))
"Low level empty newsgroup face.")
"Low level empty newsgroup face."
:group 'gnus-group)
(defface gnus-group-mail-1-face
'((((class color)
......@@ -520,7 +534,8 @@ be set in `.emacs' instead."
(:foreground "DeepPink3" :bold t))
(t
(:bold t)))
"Level 1 mailgroup face.")
"Level 1 mailgroup face."
:group 'gnus-group)
(defface gnus-group-mail-1-empty-face
'((((class color)
......@@ -531,7 +546,8 @@ be set in `.emacs' instead."
(:foreground "DeepPink3"))
(t
(:italic t :bold t)))
"Level 1 empty mailgroup face.")
"Level 1 empty mailgroup face."
:group 'gnus-group)
(defface gnus-group-mail-2-face
'((((class color)
......@@ -542,7 +558,8 @@ be set in `.emacs' instead."
(:foreground "HotPink3" :bold t))
(t
(:bold t)))
"Level 2 mailgroup face.")
"Level 2 mailgroup face."
:group 'gnus-group)
(defface gnus-group-mail-2-empty-face
'((((class color)
......@@ -553,7 +570,8 @@ be set in `.emacs' instead."
(:foreground "HotPink3"))
(t
(:bold t)))
"Level 2 empty mailgroup face.")
"Level 2 empty mailgroup face."
:group 'gnus-group)
(defface gnus-group-mail-3-face
'((((class color)
......@@ -564,7 +582,8 @@ be set in `.emacs' instead."
(:foreground "magenta4" :bold t))
(t
(:bold t)))
"Level 3 mailgroup face.")
"Level 3 mailgroup face."
:group 'gnus-group)
(defface gnus-group-mail-3-empty-face
'((((class color)
......@@ -575,7 +594,8 @@ be set in `.emacs' instead."
(:foreground "magenta4"))
(t
()))
"Level 3 empty mailgroup face.")
"Level 3 empty mailgroup face."
:group 'gnus-group)
(defface gnus-group-mail-low-face
'((((class color)
......@@ -586,7 +606,8 @@ be set in `.emacs' instead."
(:foreground "DeepPink4" :bold t))
(t
(:bold t)))
"Low level mailgroup face.")
"Low level mailgroup face."
:group 'gnus-group)
(defface gnus-group-mail-low-empty-face
'((((class color)
......@@ -597,18 +618,21 @@ be set in `.emacs' instead."
(:foreground "DeepPink4"))
(t
(:bold t)))
"Low level empty mailgroup face.")
"Low level empty mailgroup face."
:group 'gnus-group)
;; Summary mode faces.
(defface gnus-summary-selected-face '((t
(:underline t)))
"Face used for selected articles.")
"Face used for selected articles."
:group 'gnus-summary)
(defface gnus-summary-cancelled-face
'((((class color))
(:foreground "yellow" :background "black")))
"Face used for cancelled articles.")
"Face used for cancelled articles."
:group 'gnus-summary)
(defface gnus-summary-high-ticked-face
'((((class color)
......@@ -619,7 +643,8 @@ be set in `.emacs' instead."
(:foreground "firebrick" :bold t))
(t
(:bold t)))
"Face used for high interest ticked articles.")
"Face used for high interest ticked articles."
:group 'gnus-summary)
(defface gnus-summary-low-ticked-face
'((((class color)
......@@ -630,7 +655,8 @@ be set in `.emacs' instead."
(:foreground "firebrick" :italic t))
(t
(:italic t)))
"Face used for low interest ticked articles.")
"Face used for low interest ticked articles."
:group 'gnus-summary)
(defface gnus-summary-normal-ticked-face
'((((class color)
......@@ -641,7 +667,8 @@ be set in `.emacs' instead."
(:foreground "firebrick"))
(t
()))
"Face used for normal interest ticked articles.")
"Face used for normal interest ticked articles."
:group 'gnus-summary)
(defface gnus-summary-high-ancient-face
'((((class color)
......@@ -652,7 +679,8 @@ be set in `.emacs' instead."
(:foreground "RoyalBlue" :bold t))
(t
(:bold t)))
"Face used for high interest ancient articles.")
"Face used for high interest ancient articles."
:group 'gnus-summary)
(defface gnus-summary-low-ancient-face
'((((class color)
......@@ -663,7 +691,8 @@ be set in `.emacs' instead."
(:foreground "RoyalBlue" :italic t))
(t
(:italic t)))
"Face used for low interest ancient articles.")
"Face used for low interest ancient articles."
:group 'gnus-summary)
(defface gnus-summary-normal-ancient-face
'((((class color)
......@@ -674,7 +703,8 @@ be set in `.emacs' instead."
(:foreground "RoyalBlue"))
(t
()))
"Face used for normal interest ancient articles.")
"Face used for normal interest ancient articles."
:group 'gnus-summary)
(defface gnus-summary-high-undownloaded-face
'((((class color)
......@@ -683,7 +713,8 @@ be set in `.emacs' instead."
(((class color) (background dark))
(:bold t :foreground "LightGray"))
(t (:inverse-video t :bold t)))
"Face used for high interest uncached articles.")
"Face used for high interest uncached articles."
:group 'gnus-summary)
(defface gnus-summary-low-undownloaded-face
'((((class color)
......@@ -692,7 +723,8 @@ be set in `.emacs' instead."
(((class color) (background dark))
(:italic t :foreground "LightGray" :bold nil))
(t (:inverse-video t :italic t)))
"Face used for low interest uncached articles.")
"Face used for low interest uncached articles."
:group 'gnus-summary)
(defface gnus-summary-normal-undownloaded-face
'((((class color)
......@@ -701,22 +733,26 @@ be set in `.emacs' instead."
(((class color) (background dark))
(:foreground "LightGray" :bold nil))
(t (:inverse-video t)))
"Face used for normal interest uncached articles.")
"Face used for normal interest uncached articles."
:group 'gnus-summary)
(defface gnus-summary-high-unread-face
'((t
(:bold t)))
"Face used for high interest unread articles.")
"Face used for high interest unread articles."
:group 'gnus-summary)
(defface gnus-summary-low-unread-face
'((t
(:italic t)))
"Face used for low interest unread articles.")
"Face used for low interest unread articles."
:group 'gnus-summary)
(defface gnus-summary-normal-unread-face
'((t
()))
"Face used for normal interest unread articles.")
"Face used for normal interest unread articles."
:group 'gnus-summary)
(defface gnus-summary-high-read-face
'((((class color)
......@@ -729,7 +765,8 @@ be set in `.emacs' instead."
:bold t))
(t
(:bold t)))
"Face used for high interest read articles.")
"Face used for high interest read articles."
:group 'gnus-summary)
(defface gnus-summary-low-read-face
'((((class color)
......@@ -742,7 +779,8 @@ be set in `.emacs' instead."
:italic t))
(t
(:italic t)))
"Face used for low interest read articles.")
"Face used for low interest read articles."
:group 'gnus-summary)
(defface gnus-summary-normal-read-face
'((((class color)
......@@ -753,7 +791,8 @@ be set in `.emacs' instead."
(:foreground "DarkGreen"))
(t
()))
"Face used for normal interest read articles.")
"Face used for normal interest read articles."
:group 'gnus-summary)
;;;
......@@ -806,7 +845,8 @@ be set in `.emacs' instead."
(:foreground "#888888"))
(t
()))
"Face for the splash screen.")
"Face for the splash screen."
:group 'gnus)
(defun gnus-splash ()
(save-excursion
......
......@@ -842,7 +842,8 @@ the signature is inserted."
(set-keymap-parent map minibuffer-local-map)
map)
"Keymap for `message-read-from-minibuffer'."
:version "22.1")
:version "22.1"
:group 'message-various)
;;;###autoload