[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