From: ShengHuo ZHU <zsh@cs.rochester.edu>
Date: Tue, 28 Dec 1999 17:31:01 +0000 (+0000)
Subject: Don't insert message id. It will be done later.
X-Git-Url: https://cgit.sxemacs.org/?a=commitdiff_plain;h=6dec94a79261794ce4ce843a2780d23a4effa334;p=gnus

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 25db44ef1..0da870b80 100644
--- 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 8c7e21692..1b9b9c4f1 100644
--- 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)