lisp/ChangeLog addition:

2002-05-13  Josh Huber  <huber@alum.wpi.edu>

	* mml.el (mml-generate-mime-1): Fix mml generation for signed only
	messages. From Hans de Graaff <hans@degraaff.org>.
	* nnml.el (nnml-request-accept-article): Pass in the group name to
	nnmail-cache-insert, since it's available.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ee1e5e4..c71e0c8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2002-05-13  Josh Huber  <huber@alum.wpi.edu>
+
+       * mml.el (mml-generate-mime-1): Fix mml generation for signed only
+       messages. From Hans de Graaff <hans@degraaff.org>.
+       * nnml.el (nnml-request-accept-article): Pass in the group name to
+       nnmail-cache-insert, since it's available.
+
 2002-05-10  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * nndoc.el (nndoc-mime-digest-type-p): Set proper file-end.

diff --git a/lisp/mml.el b/lisp/mml.el
index c86a820..d180138 100644 (file)
--- a/lisp/mml.el
+++ b/lisp/mml.el
@@ -540,7 +540,7 @@ If MML is non-nil, return the buffer up till the correspondent mml tag."
              (message-options-set 'message-sender sender))
          (if (setq recipients (cdr (assq 'recipients cont)))
              (message-options-set 'message-recipients recipients))
-         (let ((style (mml-signencrypt-style (first encrypt-item))))
+         (let ((style (mml-signencrypt-style (first (or sign-item encrypt-item)))))
            ;; check if: we're both signing & encrypting, both methods
            ;; are the same (why would they be different?!), and that
            ;; the signencrypt style allows for combined operation.

diff --git a/lisp/nnml.el b/lisp/nnml.el
index 76ca820..935fa10 100644 (file)
--- a/lisp/nnml.el
+++ b/lisp/nnml.el
@@ -369,7 +369,7 @@ marks file will be regenerated properly by Gnus.")
   (nnmail-check-syntax)
   (let (result)
     (when nnmail-cache-accepted-message-ids
-      (nnmail-cache-insert (nnmail-fetch-field "message-id")))
+      (nnmail-cache-insert (nnmail-fetch-field "message-id") group))
     (if (stringp group)
        (and
         (nnmail-activate 'nnml)