* elmo-msgdb.el (elmo-msgdb-get-message-id-from-buffer): Added
authorteranisi <teranisi>
Thu, 14 Nov 2002 12:55:04 +0000 (12:55 +0000)
committerteranisi <teranisi>
Thu, 14 Nov 2002 12:55:04 +0000 (12:55 +0000)
workaround for invalid message-id.

elmo/ChangeLog
elmo/elmo-msgdb.el

index 61927b7..7166c01 100644 (file)
@@ -1,3 +1,8 @@
+2002-11-14  Yuuichi Teranishi  <teranisi@gohome.org>
+
+       * elmo-msgdb.el (elmo-msgdb-get-message-id-from-buffer): Added
+       workaround for invalid message-id.
+
 2002-11-13  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * elmo-pop3.el (elmo-pop3-get-session): If if-exists is 'any-exists,
index 6eda5f8..7364c5c 100644 (file)
@@ -768,12 +768,16 @@ header separator."
     seen-list))
 
 (defun elmo-msgdb-get-message-id-from-buffer ()
-  (or (elmo-field-body "message-id")
+  (let ((msgid (elmo-field-body "message-id")))
+    (if msgid
+       (if (string-match "<\\(.+\\)>$" msgid)
+           msgid
+         (concat "<" msgid ">")) ; Invaild message-id.
       ;; no message-id, so put dummy msgid.
       (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.