[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Duplicate In-Reply-To entries in reply buffer
> So, I think the above code can be modified equivalently as below.
>
> (defun elmo-msgdb-get-message-id-from-buffer ()
> (let ((msgid (elmo-field-body "message-id")))
> (if msgid
> (if (string-match "^[ \t\n]*\\(<[^>]+>\\)[ \t\n]*$" msgid)
> ...
Sorry, regexp should be exactly "\\`[ \t\n]*\\(<[^>]+>\\)[ \t\n]*$\\'".
I don't know how strict that function should be, I feel that function
could be loose as below;
(defun elmo-msgdb-get-message-id-from-buffer ()
(let ((msgid (elmo-field-body "message-id")))
(if msgid
(if (string-match "<.+>" msgid)
(match-string 0 msgid)
...
--
Kazuhiro Ito