Mercurial > emacs

comparison lisp/gnus/gnus-srvr.el @ 78125:f0705c4da65a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from gnus--rel--5.10 Patches applied: * gnus--rel--5.10 (patch 235-236) - Update from CVS 2007-07-13 Katsumi Yamaoka <yamaoka@jpl.org> * lisp/gnus/gnus-srvr.el (gnus-server-agent-face, gnus-server-opened-face) (gnus-server-closed-face, gnus-server-denied-face) (gnus-server-offline-face): Remove variable. (gnus-server-font-lock-keywords): Use faces that are not aliases. * lisp/gnus/mm-util.el (mm-decode-coding-string, mm-encode-coding-string) (mm-decode-coding-region, mm-encode-coding-region): Don't modify string if the coding-system argument is nil for XEmacs. * lisp/gnus/nnrss.el (nnrss-compatible-encoding-alist): Inherit the value of mm-charset-override-alist. * lisp/gnus/rfc2047.el: Don't require base64; require rfc2045 for the function rfc2045-encode-string. (rfc2047-encode-parameter): Use rfc2045-encode-string to quote or not to quote the parameter value. Revision: emacs@sv.gnu.org/emacs--rel--22--patch-58
author Miles Bader <miles@gnu.org>
date Sun, 15 Jul 2007 04:45:41 +0000
parents e3694f1cb928
children 364c3b96da93 a66921565bcb
comparison
equal deleted inserted replaced
78124:efad8ed994d6 78125:f0705c4da65a
212 "Face used for displaying OFFLINE servers" 212 "Face used for displaying OFFLINE servers"
213 :group 'gnus-server-visual) 213 :group 'gnus-server-visual)
214 ;; backward-compatibility alias 214 ;; backward-compatibility alias
215 (put 'gnus-server-offline-face 'face-alias 'gnus-server-offline) 215 (put 'gnus-server-offline-face 'face-alias 'gnus-server-offline)
216 216
217 (defcustom gnus-server-agent-face 'gnus-server-agent
218 "Face name to use on AGENTIZED servers."
219 :version "22.1"
220 :group 'gnus-server-visual
221 :type 'face)
222
223 (defcustom gnus-server-opened-face 'gnus-server-opened
224 "Face name to use on OPENED servers."
225 :version "22.1"
226 :group 'gnus-server-visual
227 :type 'face)
228
229 (defcustom gnus-server-closed-face 'gnus-server-closed
230 "Face name to use on CLOSED servers."
231 :version "22.1"
232 :group 'gnus-server-visual
233 :type 'face)
234
235 (defcustom gnus-server-denied-face 'gnus-server-denied
236 "Face name to use on DENIED servers."
237 :version "22.1"
238 :group 'gnus-server-visual
239 :type 'face)
240
241 (defcustom gnus-server-offline-face 'gnus-server-offline
242 "Face name to use on OFFLINE servers."
243 :version "22.1"
244 :group 'gnus-server-visual
245 :type 'face)
246
247 (defvar gnus-server-font-lock-keywords 217 (defvar gnus-server-font-lock-keywords
248 (list 218 '(("(\\(agent\\))" 1 gnus-server-agent)
249 '("(\\(agent\\))" 1 gnus-server-agent-face) 219 ("(\\(opened\\))" 1 gnus-server-opened)
250 '("(\\(opened\\))" 1 gnus-server-opened-face) 220 ("(\\(closed\\))" 1 gnus-server-closed)
251 '("(\\(closed\\))" 1 gnus-server-closed-face) 221 ("(\\(offline\\))" 1 gnus-server-offline)
252 '("(\\(offline\\))" 1 gnus-server-offline-face) 222 ("(\\(denied\\))" 1 gnus-server-denied)))
253 '("(\\(denied\\))" 1 gnus-server-denied-face)))
254 223
255 (defun gnus-server-mode () 224 (defun gnus-server-mode ()
256 "Major mode for listing and editing servers. 225 "Major mode for listing and editing servers.
257 226
258 All normal editing commands are switched off. 227 All normal editing commands are switched off.