From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/48387 Path: main.gmane.org!not-for-mail From: Reiner Steib <4uce.02.r.steib@gmx.net> Newsgroups: gmane.emacs.gnus.general Subject: Re: [Patch] MFT in mml-preview Date: Mon, 30 Dec 2002 23:04:34 +0100 Sender: owner-ding@hpc.uh.edu Message-ID: Reply-To: reiner.steib@gmx.de NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: main.gmane.org 1041286297 31251 80.91.224.249 (30 Dec 2002 22:11:37 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 30 Dec 2002 22:11:37 +0000 (UTC) Return-path: Original-Received: from util1.math.uh.edu ([129.7.128.22]) by main.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 18T88F-00087v-00 for ; Mon, 30 Dec 2002 23:11:35 +0100 Original-Received: from sina.hpc.uh.edu ([129.7.128.10] ident=lists) by util1.math.uh.edu with esmtp (Exim 4.10) id 18T81n-000363-00; Mon, 30 Dec 2002 16:04:55 -0600 Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Mon, 30 Dec 2002 16:05:47 -0600 (CST) Original-Received: from theotp5.physik.uni-ulm.de (theotp5.physik.uni-ulm.de [134.60.10.145]) by sina.hpc.uh.edu (8.9.3/8.9.3) with ESMTP id QAA14437 for ; Mon, 30 Dec 2002 16:05:32 -0600 (CST) Original-Received: (from ste@localhost) by theotp5.physik.uni-ulm.de (8.11.2/8.11.2) id gBUM4Yw16054; Mon, 30 Dec 2002 23:04:34 +0100 X-Authentication-Warning: theotp5.physik.uni-ulm.de: ste set sender to reiner.steib@physik.uni-ulm.de using -f Original-To: ding@hpc.uh.edu X-Face: 3Phac&+dw=IZHjhua]bp}LH<*p{qzj8u+> message.el. Does this make sense? > > Yup. Okay, here's a new patch using `message-subscribed-p' (maybe the doc-string should be improved?): --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=message.mml-preview-insert-mft-02.patch Content-Description: message.mml-preview-insert-mft-02.patch *** mml.el.~6.65.~ Mon Dec 30 17:25:32 2002 --- mml.el Mon Dec 30 21:50:17 2002 *************** *** 1007,1012 **** --- 1007,1022 ---- (mml-insert-tag 'part 'type type 'disposition "inline") (forward-line -1)) + (defun mml-preview-insert-mft () + "Insert a Mail-Followup-To header before previewing an article. + Should be adopted if code in `message-send-mail' is changed." + (when (and (message-mail-p) + (message-subscribed-p) + (not (mail-fetch-field "mail-followup-to")) + (message-make-mft)) + (message-position-on-field "Mail-Followup-To" "X-Draft-From") + (insert (message-make-mft)))) + (defun mml-preview (&optional raw) "Display current buffer with Gnus, in a new buffer. If RAW, don't highlight the article." *************** *** 1027,1032 **** --- 1037,1043 ---- "*MIME preview of ") (buffer-name)))) (erase-buffer) (insert-buffer buf) + (mml-preview-insert-mft) (let ((message-deletable-headers (if (message-news-p) nil message-deletable-headers))) --- message.el.~6.268.~ Mon Dec 30 21:28:50 2002 +++ message.el Mon Dec 30 21:51:56 2002 @@ -1896,6 +1896,13 @@ (message-fetch-field "cc") (message-fetch-field "bcc"))))))) +(defun message-subscribed-p () + "Say whether we need to insert a MFT header." + (or message-subscribed-regexps + message-subscribed-addresses + message-subscribed-address-file + message-subscribed-address-functions)) + (defun message-next-header () "Go to the beginning of the next header." (beginning-of-line) @@ -3343,10 +3350,7 @@ (save-restriction (message-narrow-to-headers) ;; Generate the Mail-Followup-To header if the header is not there... - (if (and (or message-subscribed-regexps - message-subscribed-addresses - message-subscribed-address-file - message-subscribed-address-functions) + (if (and (message-subscribed-p) (not (mail-fetch-field "mail-followup-to"))) (setq headers (cons --=-=-= --8<---------------cut here---------------start------------->8--- 2002-12-30 Reiner Steib * message.el (message-subscribed-p): New function. (message-send-mail): Use it. * mml.el (mml-preview-insert-mft): New function. (mml-preview): Use it. --8<---------------cut here---------------end--------------->8--- Bye, Reiner. -- ,,, (o o) ---ooO-(_)-Ooo--- PGP key available via WWW http://rsteib.home.pages.de/ --=-=-=--