1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-05 20:43:08 +00:00

Merge from gnus--rel--5.10

Patches applied:

 * gnus--rel--5.10  (patch 237-238)

   - Update from CVS

2007-07-21  Reiner Steib  <Reiner.Steib@gmx.de>

   * lisp/gnus/mm-uu.el (mm-uu-type-alist): Refer to mm-uu-configure-list in doc
   string.

2007-07-16  Katsumi Yamaoka  <yamaoka@jpl.org>

   * lisp/gnus/gnus-srvr.el (gnus-server-font-lock-keywords): Quote faces.

Revision: emacs@sv.gnu.org/emacs--rel--22--patch-69
This commit is contained in:
Miles Bader 2007-07-24 01:22:24 +00:00
parent 483bdbb35b
commit f931ce84da
3 changed files with 18 additions and 6 deletions

View File

@ -1,3 +1,12 @@
2007-07-21 Reiner Steib <Reiner.Steib@gmx.de>
* mm-uu.el (mm-uu-type-alist): Refer to mm-uu-configure-list in doc
string.
2007-07-16 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus-srvr.el (gnus-server-font-lock-keywords): Quote faces.
2007-07-13 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus-srvr.el (gnus-server-agent-face, gnus-server-opened-face)

View File

@ -215,11 +215,11 @@ If nil, a faster, but more primitive, buffer is used instead."
(put 'gnus-server-offline-face 'face-alias 'gnus-server-offline)
(defvar gnus-server-font-lock-keywords
'(("(\\(agent\\))" 1 gnus-server-agent)
("(\\(opened\\))" 1 gnus-server-opened)
("(\\(closed\\))" 1 gnus-server-closed)
("(\\(offline\\))" 1 gnus-server-offline)
("(\\(denied\\))" 1 gnus-server-denied)))
'(("(\\(agent\\))" 1 'gnus-server-agent)
("(\\(opened\\))" 1 'gnus-server-opened)
("(\\(closed\\))" 1 'gnus-server-closed)
("(\\(offline\\))" 1 'gnus-server-offline)
("(\\(denied\\))" 1 'gnus-server-denied)))
(defun gnus-server-mode ()
"Major mode for listing and editing servers.

View File

@ -162,7 +162,10 @@ This can be either \"inline\" or \"attachment\".")
Each element consist of the following entries: label,
start-regexp, end-regexp, extract-function, test-function.
After modifying this list you must run \\[mm-uu-configure].")
After modifying this list you must run \\[mm-uu-configure].
You can disable elements from this list by customizing
`mm-uu-configure-list'.")
(defcustom mm-uu-configure-list '((shar . disabled))
"A list of mm-uu configuration.