Re: [Patch] MFT in mml-preview

[Reiner Steib <4uce.02.r.steib@gmx.net>]

On Mon, Dec 30 2002, Lars Magne Ingebrigtsen wrote:

> Reiner Steib <4uce.02.r.steib@gmx.net> writes:
>
>> I added this to `mml.el'.  Probably it would be better not to
>> duplicate code from `message.el', but I'm not sure how to do this.
>
> You could try to factor out the common forms into a function or a
> macro, I guess...

The common part is the condition:

          (and (or message-subscribed-regexps
		   message-subscribed-addresses
		   message-subscribed-address-file
		   message-subscribed-address-functions)
	       (not (mail-fetch-field "mail-followup-to")))

The four message-subscribed-* could be collected...

(defun message-subscribed-FOO-p ()
  (or message-subscribed-regexps
      message-subscribed-addresses
      message-subscribed-address-file
      message-subscribed-address-functions))

...and we could use "(message-subscribed-FOO-p)" in both, mml.el and
message.el.  Does this make sense?

> Anyway, these changes are so big that it requires FSF paperwork.

I have signed the papers.

Bye, Reiner.
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo--- PGP key available via WWW   http://rsteib.home.pages.de/