Add one blank line for empty article in nnfolder.

Add one separator for bounced mail.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 08dcb52..784185b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+1999-10-07  Shenghuo ZHU  <zsh@cs.rochester.edu>
+
+       * nnfolder.el (nnfolder-insert-newsgroup-line): Insert a blank
+       line.
+
+       * message.el (message-unsent-separator): One more separator.
+
 1999-10-06  Shenghuo ZHU  <zsh@cs.rochester.edu>
 
        * nnfolder.el (nnfolder-request-move-article): For empty article,

diff --git a/lisp/message.el b/lisp/message.el
index 208dc73..c3350a8 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -953,6 +953,7 @@ The cdr of ech entry is a function for applying the face to a region.")
          "^ *---+ +Original message +---+ *$\\|"
          "^ *--+ +begin message +--+ *$\\|"
          "^ *---+ +Original message follows +---+ *$\\|"
+         "^ *---+ +Undelivered message follows +---+ *$\\|"
          "^|? *---+ +Message text follows: +---+ *|?$")
   "A regexp that matches the separator before the text of a failed message.")
 

diff --git a/lisp/nnfolder.el b/lisp/nnfolder.el
index a72690e..e989080 100644 (file)
--- a/lisp/nnfolder.el
+++ b/lisp/nnfolder.el
@@ -681,9 +681,10 @@ deleted.  Point is left where the deleted region was."
 (defun nnfolder-insert-newsgroup-line (group-art)
   (save-excursion
     (goto-char (point-min))
-    (if (search-forward "\n\n" nil t)
-       (forward-char -1)
-      (goto-char (point-max)))
+    (unless (search-forward "\n\n" nil t)
+      (goto-char (point-max))
+      (insert "\n"))
+    (forward-char -1)
     (insert (format (concat nnfolder-article-marker "%d   %s\n")
                    (cdr group-art) (current-time-string)))))