From: yamaoka <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/cgi-bin/gitweb.cgi?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  <larsi@gnus.org>
+
+	* 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  <harder@ifa.au.dk>
 
 	* 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  <larsi@gnus.org>
+
+	* gnus.texi (Required Back End Functions): Add.
+
 2003-03-17  Simon Josefsson  <jas@extundo.com>
 
 	* 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 " <number> " Article retrieved." eol
 header         = <text> eol
 @end example
 
+@cindex BNF
+(ここで使った BNF の版は RFC822 で使われているものです。)
+
 もし返却値が @code{nov} であれば、データバッファーに
 は @dfn{network overview database} 行が含まれてなくてはなりません。
 これは基本的には複数の欄をタブで区切ったものです。
 
 @example
 nov-buffer = *nov-line
-nov-line   = 8*9 [ field <TAB> ] eol
+nov-line   = field 7*8[ <TAB> field ] eol
 field      = <text except TAB>
 @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 " <number> " Article retrieved." eol
 header         = <text> 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 <TAB> ] eol
+nov-line   = field 7*8[ <TAB> field ] eol
 field      = <text except TAB>
 @end example