*** empty log message ***

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ed5db4b..9dbadc4 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,38 @@
+Sat Mar 22 15:42:53 1997  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
+
+       * gnus.el: Gnus v5.4.34 is released.
+
+Sat Mar 22 01:37:00 1997  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+
+       * gnus-sum.el (gnus-summary-move-article): Understand 'junk.
+
+       * nnml.el (nnml-request-accept-article): Return 'junk when legal.
+
+       * gnus-sum.el (gnus-summary-respool-query): Message better, and
+       return right value.
+
+       * nnmail.el (nnmail-split-abbrev-alist): New `to' and `from'
+       abbrevs. 
+
+Wed Mar 19 19:36:25 1997  Dewey M. Sasser  <dewey@newvision.com>
+
+       * message.el (message-make-from): Changed so that
+       message-from-style value is captured from message buffer instead
+       of temp buffer.
+
+Sat Mar 22 00:47:39 1997  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+
+       * gnus-srvr.el (gnus-browse-foreign-server): Understand server
+       names. 
+
+       * gnus-group.el (gnus-group-browse-foreign-server): Down methodize
+       the server.
+
+Thu Mar 20 22:49:16 1997  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+
+       * nnfolder.el (nnfolder-read-folder): Do checking if there are new
+       articles after the last nnfolder marker.
+
 Thu Mar 20 17:33:54 1997  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
 
        * gnus.el: Gnus v5.4.33 is released.

diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index 51cf32e..87aba01 100644 (file)
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -3201,8 +3201,8 @@ and the second element is the address."
                      "Address: "
                      (mapcar (lambda (server) (list server))
                              gnus-secondary-servers)))
-            ;; We got a server name, so we find the method.
-            (gnus-server-to-method how)))))
+            ;; We got a server name.
+            how))))
   (gnus-browse-foreign-server method))
 
 (defun gnus-group-set-info (info &optional method-only-group part)

diff --git a/lisp/gnus-srvr.el b/lisp/gnus-srvr.el
index df56470..9bd2426 100644 (file)
--- a/lisp/gnus-srvr.el
+++ b/lisp/gnus-srvr.el
@@ -530,8 +530,7 @@ The following commands are available:
        ["Select" gnus-browse-read-group t]
        ["Next" gnus-browse-next-group t]
        ["Prev" gnus-browse-next-group t]
-       ["Exit" gnus-browse-exit t]
-       ))
+       ["Exit" gnus-browse-exit t]))
     (run-hooks 'gnus-browse-menu-hook)))
 
 (defvar gnus-browse-current-method nil)
@@ -543,6 +542,8 @@ The following commands are available:
   "Browse the server METHOD."
   (setq gnus-browse-current-method method)
   (setq gnus-browse-return-buffer return-buffer)
+  (when (stringp method)
+    (setq method (gnus-server-to-method method)))
   (let ((gnus-select-method method)
        groups group)
     (gnus-message 5 "Connecting to %s..." (nth 1 method))

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index ac5702c..7a35589 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -6667,20 +6667,26 @@ and `request-accept' functions."
             (set-buffer copy-buf)
             ;; First put the article in the destination group.
             (gnus-request-article-this-buffer article gnus-newsgroup-name)
-            (setq art-group
-                  (gnus-request-accept-article
-                   to-newsgroup select-method (not articles)))
-            (setq new-xref (concat new-xref " " (car art-group)
-                                   ":" (cdr art-group)))
-            ;; Now we have the new Xrefs header, so we insert
-            ;; it and replace the new article.
-            (nnheader-replace-header "Xref" new-xref)
-            (gnus-request-replace-article
-             (cdr art-group) to-newsgroup (current-buffer))
-            art-group)))))
-      (if (not art-group)
-         (gnus-message 1 "Couldn't %s article %s"
-                       (cadr (assq action names)) article)
+            (when (consp (setq art-group
+                               (gnus-request-accept-article
+                                to-newsgroup select-method (not articles))))
+              (setq new-xref (concat new-xref " " (car art-group)
+                                     ":" (cdr art-group)))
+              ;; Now we have the new Xrefs header, so we insert
+              ;; it and replace the new article.
+              (nnheader-replace-header "Xref" new-xref)
+              (gnus-request-replace-article
+               (cdr art-group) to-newsgroup (current-buffer))
+              art-group))))))
+      (cond
+       ((not art-group)
+       (gnus-message 1 "Couldn't %s article %s"
+                     (cadr (assq action names)) article))
+       ((and (eq art-group 'junk)
+            (eq action 'move))
+       (gnus-summary-mark-article article gnus-canceled-mark)
+       (gnus-message 4 "Deleted article %s" article))
+       (t
        (let* ((entry
                (or
                 (gnus-gethash (car art-group) gnus-newsrc-hashtb)
@@ -6755,7 +6761,7 @@ and `request-accept' functions."
 
        (gnus-summary-goto-subject article)
        (when (eq action 'move)
-         (gnus-summary-mark-article article gnus-canceled-mark)))
+         (gnus-summary-mark-article article gnus-canceled-mark))))
       (gnus-summary-remove-process-mark article))
     ;; Re-activate all groups that have been moved to.
     (while to-groups
@@ -7068,7 +7074,7 @@ groups."
 
 ;;; Respooling
 
-(defun gnus-summary-respool-query ()
+(defun gnus-summary-respool-query (&optional silent)
   "Query where the respool algorithm would put this article."
   (interactive)
   (gnus-set-global-variables)
@@ -7078,8 +7084,13 @@ groups."
       (set-buffer gnus-original-article-buffer)
       (save-restriction
        (message-narrow-to-head)
-       (message "This message would go to %s"
-                (mapconcat 'car (nnmail-article-group 'identity) ", "))))))
+       (let ((groups (nnmail-article-group 'identity)))
+         (unless silent
+           (if groups
+               (message "This message would go to %s"
+                        (mapconcat 'car groups ", "))
+             (message "This message would go to no groups"))
+           groups))))))
 
 ;; Summary marking commands.
 

diff --git a/lisp/gnus.el b/lisp/gnus.el
index c590636..9243417 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -226,7 +226,7 @@ is restarted, and sometimes reloaded."
   :link '(custom-manual "(gnus)Exiting Gnus")
   :group 'gnus)
 
-(defconst gnus-version-number "5.4.33"
+(defconst gnus-version-number "5.4.34"
   "Version number for this version of Gnus.")
 
 (defconst gnus-version (format "Gnus v%s" gnus-version-number)

diff --git a/lisp/message.el b/lisp/message.el
index b7e1a1b..572e80a 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -113,7 +113,6 @@
   :group 'message-buffers
   :type 'function)
 
-;;;###autoload
 (defcustom message-fcc-handler-function 'message-output
   "*A function called to save outgoing articles.
 This function will be called with the name of the file to store the
@@ -2461,7 +2460,8 @@ to find out how to use this."
 
 (defun message-make-from ()
   "Make a From header."
-  (let* ((login (message-make-address))
+  (let* ((style message-from-style)
+        (login (message-make-address))
         (fullname
          (or (and (boundp 'user-full-name)
                   user-full-name)
@@ -2471,11 +2471,11 @@ to find out how to use this."
     (save-excursion
       (message-set-work-buffer)
       (cond
-       ((or (null message-from-style)
+       ((or (null style)
            (equal fullname ""))
        (insert login))
-       ((or (eq message-from-style 'angles)
-           (and (not (eq message-from-style 'parens))
+       ((or (eq style 'angles)
+           (and (not (eq style 'parens))
                 ;; Use angles if no quoting is needed, or if parens would
                 ;; need quoting too.
                 (or (not (string-match "[^- !#-'*+/-9=?A-Z^-~]" fullname))

diff --git a/lisp/nnfolder.el b/lisp/nnfolder.el
index c12a875..fc42c1c 100644 (file)
--- a/lisp/nnfolder.el
+++ b/lisp/nnfolder.el
@@ -682,6 +682,8 @@ time saver for large mailboxes.")
                         (< maxid 2)))
            (goto-char (point-max))
            (unless (re-search-backward marker nil t)
+             (goto-char (point-min)))
+           (when (nnmail-search-unix-mail-delim)
              (goto-char (point-min))))
 
          ;; Keep track of the active number on our own, and insert it back

diff --git a/lisp/nnmail.el b/lisp/nnmail.el
index e4464e8..90ad6ab 100644 (file)
--- a/lisp/nnmail.el
+++ b/lisp/nnmail.el
@@ -393,7 +393,9 @@ Example:
 
 (defcustom nnmail-split-abbrev-alist
   '((any . "from\\|to\\|cc\\|sender\\|apparently-to\\|resent-from\\|resent-to\\|resent-cc")
-    (mail . "mailer-daemon\\|postmaster\\|uucp"))
+    (mail . "mailer-daemon\\|postmaster\\|uucp")
+    (to . "to\\|cc\\|apparently-to\\|resent-to\\|resent-cc")
+    (from . "from\\|sender\\|resent-from"))
   "Alist of abbreviations allowed in `nnmail-split-fancy'."
   :group 'nnmail-split
   :type '(repeat (cons :format "%v" symbol regexp)))

diff --git a/lisp/nnml.el b/lisp/nnml.el
index 0d2f4a9..5e944f6 100644 (file)
--- a/lisp/nnml.el
+++ b/lisp/nnml.el
@@ -325,8 +325,9 @@ all.  This may very well take some time.")
           (and last (nnml-save-nov))))
       (and
        (nnmail-activate 'nnml)
-       (setq result (car (nnml-save-mail
-                         (nnmail-article-group 'nnml-active-number))))
+       (if (not (setq result (nnmail-article-group 'nnml-active-number)))
+          (setq result 'junk)
+        (setq result (car (nnml-save-mail result))))
        (when last
         (nnmail-save-active nnml-group-alist nnml-active-file)
         (when nnmail-cache-accepted-message-ids

diff --git a/texi/gnus.texi b/texi/gnus.texi
index 6a3d370..31afb81 100644 (file)
--- a/texi/gnus.texi
+++ b/texi/gnus.texi
@@ -1,7 +1,7 @@
 \input texinfo                  @c -*-texinfo-*-
 
 @setfilename gnus
-@settitle Gnus 5.4.33 Manual
+@settitle Gnus 5.4.34 Manual
 @synindex fn cp
 @synindex vr cp
 @synindex pg cp
@@ -287,7 +287,7 @@ into another language, under the above conditions for modified versions.
 @tex
 
 @titlepage
-@title Gnus 5.4.33 Manual
+@title Gnus 5.4.34 Manual
 
 @author by Lars Magne Ingebrigtsen
 @page
@@ -323,7 +323,7 @@ can be gotten by any nefarious means you can think of---@sc{nntp}, local
 spool or your mbox file.  All at the same time, if you want to push your
 luck.
 
-This manual corresponds to Gnus 5.4.33.
+This manual corresponds to Gnus 5.4.34.
 
 @end ifinfo
 
@@ -8911,7 +8911,7 @@ Let's look at an example value of this variable first:
       (any "procmail@@informatik\\.rwth-aachen\\.de" "procmail.list")
       (any "SmartList@@informatik\\.rwth-aachen\\.de" "SmartList.list")
       ;; People...
-      (any "larsi@@ifi\\.uio\\.no" "people.Lars Magne Ingebrigtsen"))
+      (any "larsi@@ifi\\.uio\\.no" "people.Lars_Magne_Ingebrigtsen"))
    ;; Unmatched mail goes to the catch all group.
    "misc.misc")
 @end lisp

diff --git a/texi/message.texi b/texi/message.texi
index aa5627c..8f575a5 100644 (file)
--- a/texi/message.texi
+++ b/texi/message.texi
@@ -1,7 +1,7 @@
 \input texinfo                  @c -*-texinfo-*-
 
 @setfilename message
-@settitle Message 5.4.33 Manual
+@settitle Message 5.4.34 Manual
 @synindex fn cp
 @synindex vr cp
 @synindex pg cp
@@ -39,7 +39,7 @@ into another language, under the above conditions for modified versions.
 @tex
 
 @titlepage
-@title Message 5.4.33 Manual
+@title Message 5.4.34 Manual
 
 @author by Lars Magne Ingebrigtsen
 @page
@@ -79,7 +79,7 @@ buffers.
 * Key Index::         List of Message mode keys.
 @end menu
 
-This manual corresponds to Message 5.4.33.  Message is distributed with
+This manual corresponds to Message 5.4.34.  Message is distributed with
 the Gnus distribution bearing the same version number as this manual
 has.