Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus.el @ 18:d95e72db5c07 r19-15b92

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b92
author cvs
date Mon, 13 Aug 2007 08:49:43 +0200
parents 0293115a14e9
children 8fc7fe29b841
comparison
equal deleted inserted replaced
17:4579af9d8826 18:d95e72db5c07
196 (defgroup gnus-exit nil 196 (defgroup gnus-exit nil
197 "Exiting gnus." 197 "Exiting gnus."
198 :link '(custom-manual "(gnus)Exiting Gnus") 198 :link '(custom-manual "(gnus)Exiting Gnus")
199 :group 'gnus) 199 :group 'gnus)
200 200
201 (defconst gnus-version-number "5.4.9" 201 (defconst gnus-version-number "5.4.11"
202 "Version number for this version of Gnus.") 202 "Version number for this version of Gnus.")
203 203
204 (defconst gnus-version (format "Gnus v%s" gnus-version-number) 204 (defconst gnus-version (format "Gnus v%s" gnus-version-number)
205 "Version string for this version of Gnus.") 205 "Version string for this version of Gnus.")
206 206
1163 1163
1164 ;; Added by Keinonen Kari <kk85613@cs.tut.fi>. 1164 ;; Added by Keinonen Kari <kk85613@cs.tut.fi>.
1165 (defcustom gnus-mode-non-string-length nil 1165 (defcustom gnus-mode-non-string-length nil
1166 "*Max length of mode-line non-string contents. 1166 "*Max length of mode-line non-string contents.
1167 If this is nil, Gnus will take space as is needed, leaving the rest 1167 If this is nil, Gnus will take space as is needed, leaving the rest
1168 of the modeline intact." 1168 of the modeline intact. Note that the default of nil is unlikely
1169 to be desirable; see the manual for further details."
1169 :group 'gnus-various 1170 :group 'gnus-various
1170 :type '(choice (const nil) 1171 :type '(choice (const nil)
1171 integer)) 1172 integer))
1172 1173
1173 (defcustom gnus-auto-expirable-newsgroups nil 1174 (defcustom gnus-auto-expirable-newsgroups nil
2349 (defun gnus-server-extend-method (group method) 2350 (defun gnus-server-extend-method (group method)
2350 ;; This function "extends" a virtual server. If the server is 2351 ;; This function "extends" a virtual server. If the server is
2351 ;; "hello", and the select method is ("hello" (my-var "something")) 2352 ;; "hello", and the select method is ("hello" (my-var "something"))
2352 ;; in the group "alt.alt", this will result in a new virtual server 2353 ;; in the group "alt.alt", this will result in a new virtual server
2353 ;; called "hello+alt.alt". 2354 ;; called "hello+alt.alt".
2354 (let ((entry 2355 (if (or (not (gnus-similar-server-opened method))
2355 (gnus-copy-sequence 2356 (not (cddr method)))
2356 (if (gnus-server-equal method gnus-select-method) gnus-select-method 2357 method
2357 (cdr (assoc (car method) gnus-server-alist)))))) 2358 `(,(car method) ,(concat (cadr method) "+" group)
2358 (if (not entry) 2359 (,(intern (format "%s-address" (car method))) ,(cadr method))
2359 method 2360 ,@(cddr method))))
2360 (setcar (cdr entry) (concat (nth 1 entry) "+" group)) 2361
2361 (nconc entry (cdr method))))) 2362 (defun gnus-similar-server-opened (method)
2363 (let ((opened gnus-opened-servers))
2364 (while (and method opened)
2365 (when (and (equal (cadr method) (cadaar opened))
2366 (not (equal method (caar opened))))
2367 (setq method nil))
2368 (pop opened))
2369 (not method)))
2362 2370
2363 (defun gnus-server-status (method) 2371 (defun gnus-server-status (method)
2364 "Return the status of METHOD." 2372 "Return the status of METHOD."
2365 (nth 1 (assoc method gnus-opened-servers))) 2373 (nth 1 (assoc method gnus-opened-servers)))
2366 2374
2386 (equal method "native")) 2394 (equal method "native"))
2387 gnus-select-method 2395 gnus-select-method
2388 (setq method 2396 (setq method
2389 (cond ((stringp method) 2397 (cond ((stringp method)
2390 (gnus-server-to-method method)) 2398 (gnus-server-to-method method))
2391 ((stringp (car method)) 2399 ((stringp (cadr method))
2392 (gnus-server-extend-method group method)) 2400 (gnus-server-extend-method group method))
2393 (t 2401 (t
2394 method))) 2402 method)))
2395 (cond ((equal (cadr method) "") 2403 (cond ((equal (cadr method) "")
2396 method) 2404 method)