/[emacs]/emacs/lisp/gnus/gnus.el
ViewVC logotype

Diff of /emacs/lisp/gnus/gnus.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.30 by miles, Mon Sep 20 12:03:04 2004 UTC revision 1.31 by miles, Mon Sep 27 07:44:44 2004 UTC
# Line 1104  Check the NNTPSERVER environment variabl Line 1104  Check the NNTPSERVER environment variabl
1104        (and (file-readable-p gnus-nntpserver-file)        (and (file-readable-p gnus-nntpserver-file)
1105             (with-temp-buffer             (with-temp-buffer
1106               (insert-file-contents gnus-nntpserver-file)               (insert-file-contents gnus-nntpserver-file)
1107               (let ((name (buffer-string)))               (when (re-search-forward "[^ \t\n\r]+" nil t)
1108                 (unless (string-match "\\`[ \t\n]*$" name)                 (match-string 0))))))
                  name))))))  
1109    
1110  (defcustom gnus-select-method  (defcustom gnus-select-method
1111    (condition-case nil    (condition-case nil

Legend:
Removed from v.1.30  
changed lines
  Added in v.1.31

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26