From: teranisi <teranisi>
Date: Thu, 9 Sep 2004 13:47:32 +0000 (+0000)
Subject: (elmo-msgdb-get-message-id-from-buffer): Use
X-Git-Tag: wl-2_11_31~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=8b23f9bc0e0441913b8847900a73bd7a51833d30;p=elisp%2Fwanderlust.git

(elmo-msgdb-get-message-id-from-buffer): Use
unibyte string of the current buffer for the argument of `md5'
(Reported by Yoichi NAKAYAMA <yoichi@geiin.org>).
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index b632320..8e7434d 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,9 @@
+2004-09-09  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo-util.el (elmo-msgdb-get-message-id-from-buffer): Use
+	unibyte string of the current buffer for the argument of `md5'
+	(Reported by Yoichi NAKAYAMA <yoichi@geiin.org>).
+
 2004-09-05  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* modb-legacy.el (modb-legacy-flag-list): New constant.
diff --git a/elmo/elmo-util.el b/elmo/elmo-util.el
index 38b07cf..0e51f1e 100644
--- a/elmo/elmo-util.el
+++ b/elmo/elmo-util.el
@@ -2026,7 +2026,7 @@ If ALIST is nil, `elmo-obsolete-variable-alist' is used."
       (concat "<"
 	      (if (elmo-unfold-field-body "date")
 		  (timezone-make-date-sortable (elmo-unfold-field-body "date"))
-		 (md5 (current-buffer) (point-min) (point-max)))
+		(md5 (string-as-unibyte (buffer-string))))
 	      (nth 1 (eword-extract-address-components
 		      (or (elmo-field-body "from") "nobody"))) ">"))))