From: bg66 Date: Tue, 9 Jan 2007 04:38:31 +0000 (+0000) Subject: * mixi-gnus.el (message-mixi-p): Simplify. X-Git-Tag: mixi-el-1_0_0~123 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=75d3483bfd4e9bb61dead0631a805bee37a3cd1f;p=elisp%2Fmixi.git * mixi-gnus.el (message-mixi-p): Simplify. --- diff --git a/ChangeLog b/ChangeLog index 6012e77..e963711 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,9 @@ 2007-01-09 OHASHI Akira + * mixi-gnus.el (message-mixi-p): Simplify. + +2007-01-09 OHASHI Akira + * mixi.el (mixi-event-comment-list-regexp): Fix regexp. 2007-01-09 OHASHI Akira diff --git a/mixi-gnus.el b/mixi-gnus.el index 2397ddc..5557ea4 100644 --- a/mixi-gnus.el +++ b/mixi-gnus.el @@ -40,13 +40,12 @@ (defun message-mixi-p () "Say whether the current buffer contains a mixi message." (and (not message-this-is-news) - (or message-this-is-mail - (save-excursion - (save-restriction - (message-narrow-to-headers) - (or (message-fetch-field "mixi") - (string-match shimbun-mixi-to-regexp - (message-fetch-field "to")))))))) + (save-excursion + (save-restriction + (message-narrow-to-headers) + (or (message-fetch-field "mixi") + (string-match shimbun-mixi-to-regexp + (message-fetch-field "to"))))))) (defun message-send-via-mixi (arg) "Send the current message via mixi."