From: yamaoka Date: Tue, 17 Oct 2000 23:28:39 +0000 (+0000) Subject: Synch with Gnus. X-Git-Tag: t-gnus-6_14-quimby-before-installer-changed-~52 X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=3e7581420199369759346baea5324256ebd0f0cf;p=elisp%2Fgnus.git- Synch with Gnus. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a103e3f..8ca328b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,12 @@ +2000-10-17 Simon Josefsson + + * gnus-sum.el (gnus-get-newsgroup-headers): Search for "from:" + instead of "from: " for rfc822 compliance. + + * gnus-uu.el (gnus-uu-digest-mail-forward): Ditto. Insert SPC. + + * nnheader.el (nnheader-parse-head): Ditto. + 2000-10-13 Kai Gro,A_(Bjohann * mail-source.el (defvar mail-source-keyword-map): Use diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index 7c38845..ef48ff9 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -4772,19 +4772,19 @@ The resulting hash table is returned, or nil if no Xrefs were found." (progn (goto-char p) (if (search-forward "\nsubject: " nil t) - (buffer-substring (match-end 0) (std11-field-end)) + (nnheader-header-value) "(none)")) ;; From. (progn (goto-char p) - (if (search-forward "\nfrom: " nil t) - (buffer-substring (match-end 0) (std11-field-end)) + (if (search-forward "\nfrom:" nil t) + (nnheader-header-value) "(nobody)")) ;; Date. (progn (goto-char p) (if (search-forward "\ndate: " nil t) - (buffer-substring (match-end 0) (std11-field-end)) + (nnheader-header-value) "")) ;; Message-ID. (progn @@ -4805,7 +4805,7 @@ The resulting hash table is returned, or nil if no Xrefs were found." (progn (setq end (point)) (prog1 - (buffer-substring (match-end 0) (std11-field-end)) + (nnheader-header-value) (setq ref (buffer-substring (progn @@ -4819,9 +4819,7 @@ The resulting hash table is returned, or nil if no Xrefs were found." ;; were no references and the in-reply-to header looks ;; promising. (if (and (search-forward "\nin-reply-to: " nil t) - (setq in-reply-to - (buffer-substring (match-end 0) - (std11-field-end))) + (setq in-reply-to (nnheader-header-value)) (string-match "<[^>]+>" in-reply-to)) (let (ref2) (setq ref (substring in-reply-to (match-beginning 0) @@ -4851,7 +4849,7 @@ The resulting hash table is returned, or nil if no Xrefs were found." (progn (goto-char p) (and (search-forward "\nxref: " nil t) - (buffer-substring (match-end 0) (std11-field-end)))) + (nnheader-header-value))) ;; Extra. (when gnus-extra-headers (let ((extra gnus-extra-headers) @@ -4860,16 +4858,12 @@ The resulting hash table is returned, or nil if no Xrefs were found." (goto-char p) (when (search-forward (concat "\n" (symbol-name (car extra)) ": ") nil t) - (push (cons (car extra) - (buffer-substring (match-end 0) - (std11-field-end))) - out)) + (push (cons (car extra) (nnheader-header-value)) out)) (pop extra)) out)))) (goto-char p) (if (and (search-forward "\ncontent-type: " nil t) - (setq ctype - (buffer-substring (match-end 0) (std11-field-end)))) + (setq ctype (nnheader-header-value))) (mime-entity-set-content-type-internal header (mime-parse-Content-Type ctype))) (when (equal id ref) diff --git a/lisp/nnheader.el b/lisp/nnheader.el index bd11872..0396036 100644 --- a/lisp/nnheader.el +++ b/lisp/nnheader.el @@ -189,7 +189,7 @@ This variable is a substitute for `mm-text-coding-system-for-write'.") ;; Parsing headers and NOV lines. (defsubst nnheader-header-value () - (buffer-substring (match-end 0) (gnus-point-at-eol))) + (buffer-substring (match-end 0) (std11-field-end))) (defun nnheader-parse-head (&optional naked) (let ((case-fold-search t) @@ -231,7 +231,7 @@ This variable is a substitute for `mm-text-coding-system-for-write'.") ;; From. (progn (goto-char p) - (if (search-forward "\nfrom: " nil t) + (if (search-forward "\nfrom:" nil t) (nnheader-header-value) "(nobody)")) ;; Date. (progn diff --git a/texi/ChangeLog b/texi/ChangeLog index 8ab668e..60c0c9b 100644 --- a/texi/ChangeLog +++ b/texi/ChangeLog @@ -1,3 +1,7 @@ +2000-10-17 Simon Josefsson + + * gnus.texi (IMAP): Add. + 2000-10-05 Kai Gro,A_(Bjohann * gnus.texi (Windows Configuration): add examples; first example diff --git a/texi/gnus-ja.texi b/texi/gnus-ja.texi index 9a9c3f7..2d0dd0b 100644 --- a/texi/gnus-ja.texi +++ b/texi/gnus-ja.texi @@ -13045,7 +13045,35 @@ IMAP $B$O%a!<%k(B ($B$b$7$/$O!"%K%e!<%9!"$b$7$/$O(B ...) $B$rFI$`$?$a$N%M%C $B$O%K%e!<%9%5!<%P!<$X$N@\B3$HHs>o$K;w$F$$$F!"$=$N%5!<%P!<$N%M%C%H%o!<%/%"(B $B%I%l%9$r;XDj$9$k$@$1$K$J$C$F$$$^$9!#(B -$B0J2<$NJQ?t$O2>A[(B @code{nnimap} $B%5!<%P!<$r:n@.$9$k$?$a$K;H$&$3$,$G$-$^$9!#(B +$B$$$/$D$+$N(B @sc{imap} $B%5!<%P!<$r(B @code{~/.gnus} $B$G@_Dj$9$k$H!"$?$V$s$3$N(B +$B$h$&$J$b$N$K$J$k$G$7$g$&(B: + +@lisp +(setq gnus-secondary-select-methods + '((nnimap "simpleserver") ; $BIaDL$N@_Dj(B + ; SSH $B%]!<%H$r%U%)%o!<%I$7$?%5!<%P!<(B: + (nnimap "dolk" + (nnimap-address "localhost") + (nnimap-server-port 1430)) + ; $B%m!<%+%k%[%9%H$G1?E>$7$F$$$k(B UW $B%5!<%P!<(B: + (nnimap "barbar" + (nnimap-server-port 143) + (nnimap-address "localhost") + (nnimap-list-pattern ("INBOX" "mail/*"))) + ; $BF?L>$G;H$($k(B cyrus $B$N8x=0%5!<%P!<(B: + (nnimap "cyrus.andrew.cmu.edu" + (nnimap-authenticator anonymous) + (nnimap-list-pattern "archive.*") + (nnimap-stream network)) + ; $BI8=`$G$O$J$$%]!<%H$N(B SSL $B%5!<%P!<(B: + (nnimap "vic20" + (nnimap-address "vic20.somewhere.com") + (nnimap-server-port 9930) + (nnimap-stream ssl)))) +@end lisp + +$B0J2<$NJQ?t$O2>A[(B @code{nnimap} $B%5!<%P!<$r:n@.$9$k$?$a$K;H$&$3$H$,$G$-$^(B +$B$9!#(B @table @code diff --git a/texi/gnus.texi b/texi/gnus.texi index 60a0090..ec1a650 100644 --- a/texi/gnus.texi +++ b/texi/gnus.texi @@ -13598,6 +13598,33 @@ think of it as a modernized @sc{nntp}. Connecting to a @sc{imap} server is much similar to connecting to a news server, you just specify the network address of the server. +A server configuration in @code{~/.gnus} with a few @sc{imap} servers +might look something like this: + +@lisp +(setq gnus-secondary-select-methods + '((nnimap "simpleserver") ; no special configuration + ; perhaps a ssh port forwarded server: + (nnimap "dolk" + (nnimap-address "localhost") + (nnimap-server-port 1430)) + ; a UW server running on localhost + (nnimap "barbar" + (nnimap-server-port 143) + (nnimap-address "localhost") + (nnimap-list-pattern ("INBOX" "mail/*"))) + ; anonymous public cyrus server: + (nnimap "cyrus.andrew.cmu.edu" + (nnimap-authenticator anonymous) + (nnimap-list-pattern "archive.*") + (nnimap-stream network)) + ; a ssl server on a non-standard port: + (nnimap "vic20" + (nnimap-address "vic20.somewhere.com") + (nnimap-server-port 9930) + (nnimap-stream ssl)))) +@end lisp + The following variables can be used to create a virtual @code{nnimap} server: