From: kaoru <kaoru>
Date: Wed, 14 Apr 2004 14:09:13 +0000 (+0000)
Subject: * elmo-util.el (elmo-msgdb-get-message-id-from-buffer): If date
X-Git-Tag: wl-2_11_25~4
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=5ee9f77c163d49d75a6bb6d23d9f31f7db4f2534;p=elisp%2Fwanderlust.git

* elmo-util.el (elmo-msgdb-get-message-id-from-buffer): If date
field not exists in message, Use md5 message digest of header.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 8a1be11..658decb 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2004-04-14  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+	* elmo-util.el (elmo-msgdb-get-message-id-from-buffer): If date
+	field not exists in message, Use md5 message digest of header.
+
 2004-04-11  Yoichi NAKAYAMA  <yoichi@geiin.org>
 
 	* elmo.el (elmo-folder-append-buffer): Add note on return value.
diff --git a/elmo/elmo-util.el b/elmo/elmo-util.el
index 5a7a1bc..8f097a9 100644
--- a/elmo/elmo-util.el
+++ b/elmo/elmo-util.el
@@ -2000,10 +2000,12 @@ If ALIST is nil, `elmo-obsolete-variable-alist' is used."
     (if msgid
 	(if (string-match "<\\(.+\\)>$" msgid)
 	    msgid
-	  (concat "<" msgid ">")) ; Invaild message-id.
+	  (concat "<" msgid ">"))	; Invaild message-id.
       ;; no message-id, so put dummy msgid.
-      (concat "<" (timezone-make-date-sortable
-		   (elmo-unfold-field-body "date"))
+      (concat "<"
+	      (if (elmo-unfold-field-body "date")
+		  (timezone-make-date-sortable (elmo-unfold-field-body "date"))
+		 (md5 (current-buffer) (point-min) (point-max) nil t))
 	      (nth 1 (eword-extract-address-components
 		      (or (elmo-field-body "from") "nobody"))) ">"))))