[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/gnus.el [emacs-unicode-2]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/gnus.el [emacs-unicode-2] |
Date: |
Wed, 29 Sep 2004 03:46:24 -0400 |
Index: emacs/lisp/gnus/gnus.el
diff -c emacs/lisp/gnus/gnus.el:1.26.6.3 emacs/lisp/gnus/gnus.el:1.26.6.4
*** emacs/lisp/gnus/gnus.el:1.26.6.3 Tue Sep 21 09:34:07 2004
--- emacs/lisp/gnus/gnus.el Wed Sep 29 07:22:15 2004
***************
*** 282,288 ****
:link '(custom-manual "(gnus)Exiting Gnus")
:group 'gnus)
! (defconst gnus-version-number "5.10.6"
"Version number for this version of Gnus.")
(defconst gnus-version (format "Gnus v%s" gnus-version-number)
--- 282,288 ----
:link '(custom-manual "(gnus)Exiting Gnus")
:group 'gnus)
! (defconst gnus-version-number "5.11"
"Version number for this version of Gnus.")
(defconst gnus-version (format "Gnus v%s" gnus-version-number)
***************
*** 1104,1112 ****
(and (file-readable-p gnus-nntpserver-file)
(with-temp-buffer
(insert-file-contents gnus-nntpserver-file)
! (let ((name (buffer-string)))
! (unless (string-match "\\`[ \t\n]*$" name)
! name))))))
(defcustom gnus-select-method
(condition-case nil
--- 1104,1111 ----
(and (file-readable-p gnus-nntpserver-file)
(with-temp-buffer
(insert-file-contents gnus-nntpserver-file)
! (when (re-search-forward "[^ \t\n\r]+" nil t)
! (match-string 0))))))
(defcustom gnus-select-method
(condition-case nil
***************
*** 3309,3346 ****
(push (cons server result) gnus-server-method-cache))
result)))
- (defsubst gnus-method-to-server (method)
- (catch 'server-name
- (setq method (or method gnus-select-method))
-
- ;; Perhaps it is already in the cache.
- (mapc (lambda (name-method)
- (if (equal (cdr name-method) method)
- (throw 'server-name (car name-method))))
- gnus-server-method-cache)
-
- (mapc
- (lambda (server-alist)
- (mapc (lambda (name-method)
- (when (gnus-methods-equal-p (cdr name-method) method)
- (unless (member name-method gnus-server-method-cache)
- (push name-method gnus-server-method-cache))
- (throw 'server-name (car name-method))))
- server-alist))
- (let ((alists (list gnus-server-alist
- gnus-predefined-server-alist)))
- (if gnus-select-method
- (push (list (cons "native" gnus-select-method)) alists))
- alists))
-
- (let* ((name (if (member (cadr method) '(nil ""))
- (format "%s" (car method))
- (format "%s:%s" (car method) (cadr method))))
- (name-method (cons name method)))
- (unless (member name-method gnus-server-method-cache)
- (push name-method gnus-server-method-cache))
- name)))
-
(defsubst gnus-server-get-method (group method)
;; Input either a server name, and extended server name, or a
;; select method, and return a select method.
--- 3308,3313 ----