From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/4270 Path: main.gmane.org!not-for-mail From: davidk@lysator.liu.se (David K}gedal) Newsgroups: gmane.emacs.gnus.general Subject: Resending Date: 05 Dec 1995 10:52:37 +0100 Organization: Lysator Computer Society, Link|ping University, Sweden Sender: davidk@lysator.liu.se Message-ID: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: 8bit X-Trace: main.gmane.org 1035145040 29063 80.91.224.250 (20 Oct 2002 20:17:20 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 20 Oct 2002 20:17:20 +0000 (UTC) Cc: gnus-bug@ifi.uio.no Return-Path: ding-request@ifi.uio.no Original-Received: from ifi.uio.no (ifi.uio.no [129.240.64.2]) by miranova.com (8.6.11/8.6.9) with ESMTP id CAA31982 for ; Tue, 5 Dec 1995 02:50:36 -0800 Original-Received: from konrad.lysator.liu.se (lysnet-gw.lysator.liu.se [130.236.253.6]) by ifi.uio.no with ESMTP (8.6.11/ifi2.4) id ; Tue, 5 Dec 1995 10:52:48 +0100 Original-Received: from tiny.lysator.liu.se (tiny.lysator.liu.se [130.236.253.10]) by konrad.lysator.liu.se (8.6.11/8.6.11) with ESMTP id KAA16180; Tue, 5 Dec 1995 10:52:40 +0100 Original-Received: (davidk@localhost) by tiny.lysator.liu.se (8.6.11/8.6.11) id KAA12164; Tue, 5 Dec 1995 10:52:37 +0100 X-Face: D]XdQ0Lvl](98/?#ke.70P&g#NMUCf!)RIE}'k~=+N;#R2uW:$?JwjbU*jlrOh<0}LlKrwJ '+U#I_Mg|YVK\yHGVs`iy-^RoC(Sq'H3Bv*&'aL`!\Sk?[ Y^soDZ`fP_My5y282q2T + + * gnus-msg.el (gnus-inews-insert-headers): Use cadr of the result + from gnus-extract-address-components instead of the car. + (gnus-summary-resend-message): Do not call mail-setup, and use + fewer headers. + Tue Dec 5 03:22:37 1995 Lars Magne Ingebrigtsen * nnbabyl.el (nnbabyl-close-server): Restore buffer mode on exit. *** lisp/gnus-msg.el Tue Dec 5 06:10:53 1995 --- lisp/gnus-msg.el Tue Dec 5 10:44:05 1995 *************** *** 1182,1193 **** (if (and from (not (gnus-check-before-posting 'sender)) (not (string= ! (downcase (car (gnus-extract-address-components from))) (downcase (gnus-inews-real-user-address)))) (or (null sender) (not (string= ! (downcase (car (gnus-extract-address-components sender))) (downcase (gnus-inews-real-user-address)))))) (progn (goto-char (point-min)) --- 1182,1193 ---- (if (and from (not (gnus-check-before-posting 'sender)) (not (string= ! (downcase (car (cdr (gnus-extract-address-components from)))) (downcase (gnus-inews-real-user-address)))) (or (null sender) (not (string= ! (downcase (car (cdr (gnus-extract-address-components sender)))) (downcase (gnus-inews-real-user-address)))))) (progn (goto-char (point-min)) *************** *** 1512,1527 **** (let (resent) ;; We first set up a normal mail buffer. (nnheader-set-temp-buffer " *Gnus resend*") ! (gnus-mail-setup 'new address) ;; Insert our usual headers. (gnus-inews-narrow-to-headers) ! (let ((headers '(From Date To Message-ID Organization))) (gnus-inews-insert-headers headers)) (goto-char (point-min)) ;; Rename them all to "Resent-*". ! (while (re-search-forward "^" nil t) (insert "Resent-")) (widen) (delete-region (point) (point-max)) ;; Insert the message to be resent. (insert-buffer-substring gnus-original-article-buffer) --- 1512,1536 ---- (let (resent) ;; We first set up a normal mail buffer. (nnheader-set-temp-buffer " *Gnus resend*") ! ;; This code from sendmail.el ! (insert "To: ") ! (let ((fill-prefix "\t") ! (address-start (point))) ! (insert address "\n") ! (fill-region-as-paragraph address-start (point-max))) ! ;; ! (insert mail-header-separator "\n") ;; Insert our usual headers. (gnus-inews-narrow-to-headers) ! (let ((headers '(From Date To))) (gnus-inews-insert-headers headers)) (goto-char (point-min)) ;; Rename them all to "Resent-*". ! (while (re-search-forward "^[A-Za-z]" nil t) ! (forward-char -1) (insert "Resent-")) (widen) + (forward-line) (delete-region (point) (point-max)) ;; Insert the message to be resent. (insert-buffer-substring gnus-original-article-buffer) -- David Kågedal Lysator Academic Computer Society davidk@lysator.liu.se http://www.lysator.liu.se/~davidk/ +46-13 17 65 89