Synch to Oort Gnus 200303171420.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 68fe11c..d9927ad 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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
+(\e$B$3$3$G;H$C$?\e(B BNF \e$B$NHG$O\e(B RFC822 \e$B$G;H$o$l$F$$$k$b$N$G$9!#\e(B)
+
 \e$B$b$7JV5QCM$,\e(B @code{nov} \e$B$G$"$l$P!"%G!<%?%P%C%U%!!<$K\e(B
 \e$B$O\e(B @dfn{network overview database} \e$B9T$,4^$^$l$F$J$/$F$O$J$j$^$;$s!#\e(B
 \e$B$3$l$O4pK\E*$K$OJ#?t$NMs$r%?%V$G6h@Z$C$?$b$N$G$9!#\e(B
 
 @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 (file)
--- 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