Don't insert message id. It will be done later.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 25db44e..0da870b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+1999-12-28 12:20:18  Shenghuo ZHU  <zsh@cs.rochester.edu>
+
+       * webmail.el (webmail-hotmail-article): Don't insert message id.
+
 1999-12-28  Kai.Grossjohann@CS.Uni-Dortmund.DE (Kai Großjohann)
 
        * nnimap.el (nnimap-split-fancy): New variable.

diff --git a/lisp/webmail.el b/lisp/webmail.el
index 8c7e216..1b9b9c4 100644 (file)
--- a/lisp/webmail.el
+++ b/lisp/webmail.el
@@ -401,17 +401,10 @@
   (goto-char (point-min))
   (while (re-search-forward "\r\n?" nil t)
     (replace-match "\n"))
-  (save-restriction
-    (goto-char (point-min))
-    (mail-narrow-to-head)
-    (if (mail-fetch-field "message-id")
-       (setq id nil)))
   (goto-char (point-min))
   (insert "\n\n")
   (if (not (looking-at "\n*From "))
       (insert "From nobody " (current-time-string) "\n"))
-  (if id
-      (insert (format "Message-ID: <%s@hotmail.com>\n" id)))
   (mm-append-to-file (point-min) (point-max) file))
 
 (defun webmail-hotmail-article-old (file id)