From: teranisi <teranisi>
Date: Mon, 10 Jun 2002 16:10:05 +0000 (+0000)
Subject: 2002-06-10  Kenichi Sato <ksato@sonycom.com>
X-Git-Tag: elmo-mark-root~89
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d5089a7fa820cde0b4b93198c4b770bc0ef13c14;p=elisp%2Fwanderlust.git

2002-06-10  Kenichi Sato <ksato@sonycom.com>

	* elmo-msgdb.el (elmo-msgdb-get-message-id-from-buffer): Fix for
	message with no message-id field.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 37da517..84fc6d1 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2002-06-10  Kenichi Sato <ksato@sonycom.com>
+
+	* elmo-msgdb.el (elmo-msgdb-get-message-id-from-buffer): Fix for
+	message with no message-id field.
+
 2002-05-20  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* elmo-version.el (elmo-version): Up to 2.9.13.
diff --git a/elmo/elmo-msgdb.el b/elmo/elmo-msgdb.el
index 1f34464..04ac69a 100644
--- a/elmo/elmo-msgdb.el
+++ b/elmo/elmo-msgdb.el
@@ -770,10 +770,10 @@ header separator."
 (defun elmo-msgdb-get-message-id-from-buffer ()
   (or (elmo-field-body "message-id")
       ;; no message-id, so put dummy msgid.
-      (concat (timezone-make-date-sortable
-	       (elmo-field-body "date"))
+      (concat "<" (timezone-make-date-sortable
+		   (elmo-field-body "date"))
 	      (nth 1 (eword-extract-address-components
-		      (or (elmo-field-body "from") "nobody"))))))
+		      (or (elmo-field-body "from") "nobody"))) ">")))
 
 (defsubst elmo-msgdb-create-overview-from-buffer (number &optional size time)
   "Create overview entity from current buffer.