From d5089a7fa820cde0b4b93198c4b770bc0ef13c14 Mon Sep 17 00:00:00 2001 From: teranisi Date: Mon, 10 Jun 2002 16:10:05 +0000 Subject: [PATCH] 2002-06-10 Kenichi Sato * elmo-msgdb.el (elmo-msgdb-get-message-id-from-buffer): Fix for message with no message-id field. --- elmo/ChangeLog | 5 +++++ elmo/elmo-msgdb.el | 6 +++--- 2 files changed, 8 insertions(+), 3 deletions(-) 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 + + * elmo-msgdb.el (elmo-msgdb-get-message-id-from-buffer): Fix for + message with no message-id field. + 2002-05-20 Yuuichi Teranishi * 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. -- 1.7.10.4