From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/48504 Path: main.gmane.org!not-for-mail From: Reiner Steib <4uce.02.r.steib@gmx.net> Newsgroups: gmane.emacs.gnus.general Subject: Re: [patch] More buttons for emacs stuff, MIDs, mail addresses Date: Wed, 01 Jan 2003 21:38:32 +0100 Sender: owner-ding@hpc.uh.edu Message-ID: References: <3D6FED17.6040201@yahoo.com.cn> 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 1041454168 4087 80.91.224.249 (1 Jan 2003 20:49:28 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Wed, 1 Jan 2003 20:49:28 +0000 (UTC) Return-path: Original-Received: from malifon.math.uh.edu ([129.7.128.13]) by main.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 18Tpnp-00013e-00 for ; Wed, 01 Jan 2003 21:49:26 +0100 Original-Received: from sina.hpc.uh.edu ([129.7.128.10] ident=lists) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 18TpoA-0006rX-00; Wed, 01 Jan 2003 14:49:46 -0600 Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Wed, 01 Jan 2003 14:50:40 -0600 (CST) Original-Received: from marauder.physik.uni-ulm.de (dialin-145-254-249-191.arcor-ip.net [145.254.249.191]) by sina.hpc.uh.edu (8.9.3/8.9.3) with ESMTP id OAA20731 for ; Wed, 1 Jan 2003 14:50:20 -0600 (CST) Original-Received: (from ste@localhost) by marauder.physik.uni-ulm.de (8.11.2/8.11.2) id h01KcYX26400; Wed, 1 Jan 2003 21:38:34 +0100 X-Authentication-Warning: marauder.physik.uni-ulm.de: ste set sender to 4uce.02.r.steib@gmx.net using -f Original-To: ding@hpc.uh.edu X-Face: #vK]N[`vqjuod*|)'[iD7/"3AB-ApT%fmN"LWAg@oS7OesGv~)n[OBTLM#I="J'Y^-7I I/ps7o_'IK@#-Rs{::DZ@O8yS|fexe,XslY[:dNWOb~>?mC-&i_c)say:"\IpA.5U.b]'NY;Pks{lb h.+#6%DpZuaK3dcHB`Av3zc:r!C%~s0&m,tWj]&},qg.+0ww2gK%f!:GK|wMl.I!(voY*1"^li8"~B BNG)9LvPi?^DMR-GVDnZqhu*3Hi,+g=wFhI)BL6&u{EOVEHjVEVq~d?_}lMntWAc3(6?kftjc>_f>! g0wM(qPM$d5]^TT_Qyi&L?LGVG)SHN;Gk/,pkY9,~ Mail-Copies-To: nobody Mail-Followup-To: ding@hpc.uh.edu In-Reply-To: (Lars Magne Ingebrigtsen's message of "Wed, 01 Jan 2003 20:09:35 +0100") User-Agent: Gnus/5.090008 (Oort Gnus v0.08) Emacs/21.1 (i586-pc-linux-gnu) Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:48504 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:48504 --=-=-= On Wed, Jan 01 2003, Lars Magne Ingebrigtsen wrote: > Reiner Steib <4uce.02.r.steib@gmx.net> writes: > >> I fixed the function and variable names: > > The attachment was empty; could you re-send? Sure (the gnus-summary-resend-message-edit problem again): --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=message.rename-message-utils-stuff.patch Content-Description: message.rename-message-utils-stuff.patch --- message.el.~6.266.~ Mon Dec 30 17:25:32 2002 +++ message.el Mon Dec 30 17:30:54 2002 @@ -325,40 +325,40 @@ ;; inspired by JoH-followup-to by Jochem Huhman ;; new suggestions by R. Weikusat -(defvar message-xpost-old-target nil +(defvar message-cross-post-old-target nil "Old target for cross-posts or follow-ups.") -(make-variable-buffer-local 'message-xpost-old-target) +(make-variable-buffer-local 'message-cross-post-old-target) ;;;###autoload -(defcustom message-xpost-default t - "When non-nil `message-xpost-fup2' will normally perform a crosspost. -If nil, `message-xpost-fup2' will only do a followup. Note that you -can explicitly override this setting by calling `message-xpost-fup2' -with a prefix." +(defcustom message-cross-post-default t + "When non-nil `message-cross-post-followup-to' will normally perform a +crosspost. If nil, `message-cross-post-followup-to' will only do a followup. +Note that you can explicitly override this setting by calling +`message-cross-post-followup-to' with a prefix." :type 'boolean :group 'message-various) ;;;###autoload -(defcustom message-xpost-note +(defcustom message-cross-post-note "Crosspost & Followup-To: " - "Note to insert before signature to notify of xpost and follow-up." + "Note to insert before signature to notify of cross-post and follow-up." :type 'string :group 'message-various) ;;;###autoload -(defcustom message-fup2-note +(defcustom message-followup-to-note "Followup-To: " "Note to insert before signature to notify of follow-up only." :type 'string :group 'message-various) ;;;###autoload -(defcustom message-xpost-note-function - 'message-xpost-insert-note +(defcustom message-cross-post-note-function + 'message-cross-post-insert-note "Function to use to insert note about Crosspost or Followup-To. The function will be called with four arguments. The function should not only insert a note, but also ensure old notes are deleted. See the documentation -for `message-xpost-insert-note'. " +for `message-cross-post-insert-note'. " :type 'function :group 'message-various) @@ -1645,7 +1645,7 @@ (message-sort-headers))) ;;;###autoload -(defun message-xpost-fup2-header (target-group) +(defun message-cross-post-followup-to-header (target-group) "Mangles FollowUp-To and Newsgroups header to point to TARGET-GROUP. With prefix-argument just set Follow-Up, don't cross-post." (interactive @@ -1660,19 +1660,19 @@ (message-goto-newsgroups) (beginning-of-line) ;; if we already did a crosspost before, kill old target - (if (and message-xpost-old-target + (if (and message-cross-post-old-target (re-search-forward - (regexp-quote (concat "," message-xpost-old-target)) + (regexp-quote (concat "," message-cross-post-old-target)) nil t)) (replace-match "")) ;; unless (followup is to poster or user explicitly asked not ;; to cross-post, or target-group is already in Newsgroups) ;; add target-group to Newsgroups line. (cond ((and (or - ;; def: xpost, req:no - (and message-xpost-default (not current-prefix-arg)) - ;; def: no-xpost, req:yes - (and (not message-xpost-default) current-prefix-arg)) + ;; def: cross-post, req:no + (and message-cross-post-default (not current-prefix-arg)) + ;; def: no-cross-post, req:yes + (and (not message-cross-post-default) current-prefix-arg)) (not (string-match "poster" target-group)) (not (string-match (regexp-quote target-group) (message-fetch-field "Newsgroups")))) @@ -1686,13 +1686,14 @@ "[ \t]*$") (message-fetch-field "Newsgroups"))) (insert (concat "\nFollowup-To: " target-group))) - (setq message-xpost-old-target target-group)) + (setq message-cross-post-old-target target-group)) ;;;###autoload -(defun message-xpost-insert-note (target-group xpost in-old old-groups) +(defun message-cross-post-insert-note (target-group cross-post in-old + old-groups) "Insert a in message body note about a set Followup or Crosspost. If there have been previous notes, delete them. TARGET-GROUP specifies the -group to Followup-To. When XPOST is t, insert note about +group to Followup-To. When CROSS-POST is t, insert note about crossposting. IN-OLD specifies whether TARGET-GROUP is a member of OLD-GROUPS. OLD-GROUPS lists the old-groups the posting would have been made to before the user asked for a Crosspost." @@ -1703,25 +1704,25 @@ nil t))) ; just search in body (message-goto-signature) (while (re-search-backward - (concat "^" (regexp-quote message-xpost-note) ".*") + (concat "^" (regexp-quote message-cross-post-note) ".*") head t) (message-delete-line)) (message-goto-signature) (while (re-search-backward - (concat "^" (regexp-quote message-fup2-note) ".*") + (concat "^" (regexp-quote message-followup-to-note) ".*") head t) (message-delete-line)) ;; insert new note (if (message-goto-signature) (re-search-backward message-signature-separator)) (if (or in-old - (not xpost) + (not cross-post) (string-match "^[ \t]*poster[ \t]*$" target-group)) - (insert (concat message-fup2-note target-group "\n")) - (insert (concat message-xpost-note target-group "\n"))))) + (insert (concat message-followup-to-note target-group "\n")) + (insert (concat message-cross-post-note target-group "\n"))))) ;;;###autoload -(defun message-xpost-fup2 (target-group) +(defun message-cross-post-followup-to (target-group) "Crossposts message and sets Followup-To to TARGET-GROUP. With prefix-argument just set Follow-Up, don't cross-post." (interactive @@ -1750,13 +1751,13 @@ "[ \t]*$") old-groups))) ;; yes, Newsgroups line must change - (message-xpost-fup2-header target-group) - ;; insert note whether we do xpost or fup2 - (funcall message-xpost-note-function + (message-cross-post-followup-to-header target-group) + ;; insert note whether we do cross-post or fup2 + (funcall message-cross-post-note-function target-group - (if (or (and message-xpost-default + (if (or (and message-cross-post-default (not current-prefix-arg)) - (and (not message-xpost-default) + (and (not message-cross-post-default) current-prefix-arg)) t) in-old old-groups)))))))) @@ -1968,8 +1969,8 @@ ;; modify headers (and insert notes in body) (define-key message-mode-map "\C-c\C-fs" 'message-change-subject) ;; - (define-key message-mode-map "\C-c\C-fx" 'message-xpost-fup2) - ;; prefix+message-xpost-fup2 = same w/o xpost + (define-key message-mode-map "\C-c\C-fx" 'message-cross-post-followup-to) + ;; prefix+message-cross-post-followup-to = same w/o cross-post (define-key message-mode-map "\C-c\C-ft" 'message-reduce-to-to-cc) (define-key message-mode-map "\C-c\C-fa" 'message-add-archive-header) ;; mark inserted text @@ -2082,8 +2083,8 @@ ["Keywords" message-goto-keywords t] ["Newsgroups" message-goto-newsgroups t] ["Followup-To" message-goto-followup-to t] - ;; ["Followup-To (with note in body)" message-xpost-fup2 t] - ["Crosspost / Followup-To..." message-xpost-fup2 t] + ;; ["Followup-To (with note in body)" message-cross-post-followup-to t] + ["Crosspost / Followup-To..." message-cross-post-followup-to t] ["Distribution" message-goto-distribution t] ["X-No-Archive:" message-add-archive-header t ] "----" --=-=-= > That ChangeLog entry was just fine... | message-cross-post-note-function, ): New variables names. ^^ this ", " should be removed. >> E.g. `message-gen-unsubscribed-mft'? > > No, that should also be renamed to something understandable, I think. `message-generate-unsubscribed-mft' or `message-generate-unsubscribed-mail-followup-to'? There's also `message-make-mft' and `message-make-fqdn'... Bye, Reiner. -- ,,, (o o) ---ooO-(_)-Ooo--- PGP key available via WWW http://rsteib.home.pages.de/ --=-=-=--