From: yamaoka Date: Mon, 17 Mar 2003 14:38:51 +0000 (+0000) Subject: Synch to Oort Gnus 200303171420. X-Git-Tag: t-gnus-6_15_17-00-quimby~2 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=763efe0b3bb989a17c2289e56d7a405865fad50e;p=elisp%2Fgnus.git- Synch to Oort Gnus 200303171420. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 68fe11c..d9927ad 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,13 @@ +2003-03-17 Lars Magne Ingebrigtsen + + * mail-source.el (mail-source-fetch-imap): Pass buffer-name to + imap-open. + + * message.el (message-send-mail): Add courtesy string to Bcc's, + too. + + * gnus-cite.el (gnus-cited-line-p): New function. + 2003-03-15 Jesper Harder * mm-bodies.el (mm-decode-body): Add new optional parameter, diff --git a/lisp/gnus-cite.el b/lisp/gnus-cite.el index 1697a79..31ee34a 100644 --- a/lisp/gnus-cite.el +++ b/lisp/gnus-cite.el @@ -1041,6 +1041,17 @@ See also the documentation for `gnus-article-highlight-citation'." (while vars (make-local-variable (pop vars))))) +(defun gnus-cited-line-p () + "Say whether the current line is a cited line." + (save-excursion + (beginning-of-line) + (let ((found nil)) + (dolist (prefix (mapcar 'car gnus-cite-prefix-alist)) + (when (string= (buffer-substring (point) (+ (length prefix) (point))) + prefix) + (setq found t))) + found))) + (gnus-ems-redefine) (provide 'gnus-cite) diff --git a/lisp/mail-source.el b/lisp/mail-source.el index d0e7afa..53401bc 100644 --- a/lisp/mail-source.el +++ b/lisp/mail-source.el @@ -988,14 +988,14 @@ This only works when `display-time' is enabled." (defun mail-source-fetch-imap (source callback) "Fetcher for imap sources." (mail-source-bind (imap source) - (let ((from (format "%s:%s:%s" server user port)) - (found 0) - (buf (get-buffer-create - (format " *imap source %s:%s:%s *" server user mailbox))) - (mail-source-string (format "imap:%s:%s" server mailbox)) - (imap-shell-program (or (list program) imap-shell-program)) - remove) - (if (and (imap-open server port stream authentication buf) + (let* ((from (format "%s:%s:%s" server user port)) + (found 0) + (buffer-name " *imap source*") + (buf (get-buffer-create (generate-new-buffer-name buffer-name))) + (mail-source-string (format "imap:%s:%s" server mailbox)) + (imap-shell-program (or (list program) imap-shell-program)) + remove) + (if (and (imap-open server port stream authentication buffer-name) (imap-authenticate user (or (cdr (assoc from mail-source-password-cache)) password) buf) diff --git a/lisp/message.el b/lisp/message.el index 5134cae..1a1ed57 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -3990,6 +3990,7 @@ This sub function is for exclusive use of `message-send-mail'." (message-narrow-to-headers) (and news (or (message-fetch-field "cc") + (message-fetch-field "bcc") (message-fetch-field "to")) (let ((ct (mime-read-Content-Type))) (or (not ct) diff --git a/texi/ChangeLog b/texi/ChangeLog index d60bb3b..4f511a3 100644 --- a/texi/ChangeLog +++ b/texi/ChangeLog @@ -1,3 +1,7 @@ +2003-03-17 Lars Magne Ingebrigtsen + + * gnus.texi (Required Back End Functions): Add. + 2003-03-17 Simon Josefsson * pgg.texi: Fix setfilename. Tiny patch by Frank Haun diff --git a/texi/gnus-ja.texi b/texi/gnus-ja.texi index b28c9c5..231b115 100644 --- a/texi/gnus-ja.texi +++ b/texi/gnus-ja.texi @@ -24445,13 +24445,16 @@ valid-message = "221 " " Article retrieved." eol header = eol @end example +@cindex BNF +(ここで使った BNF の版は RFC822 で使われているものです。) + もし返却値が @code{nov} であれば、データバッファーに は @dfn{network overview database} 行が含まれてなくてはなりません。 これは基本的には複数の欄をタブで区切ったものです。 @example nov-buffer = *nov-line -nov-line = 8*9 [ field ] eol +nov-line = field 7*8[ field ] eol field = @end example diff --git a/texi/gnus.texi b/texi/gnus.texi index 658cf0e..3b51180 100644 --- a/texi/gnus.texi +++ b/texi/gnus.texi @@ -24966,13 +24966,16 @@ valid-message = "221 " " Article retrieved." eol header = eol @end example +@cindex BNF +(The version of BNF used here is the one used in RFC822.) + If the return value is @code{nov}, the data buffer should contain @dfn{network overview database} lines. These are basically fields separated by tabs. @example nov-buffer = *nov-line -nov-line = 8*9 [ field ] eol +nov-line = field 7*8[ field ] eol field = @end example