RFE: gnus-summary-mail-forward with process marks

RFE: gnus-summary-mail-forward with process marks

[Sean Neakums]

It'd be nifty (and more intuitive) if gnus-summary-mail-forward could
punt to gnus-uu-digest-mail-forward when process marks are set.

The following hack (only two new lines of code have been added,
despite the number of patched lines) does this, but probably not in
the best way.  Call it a proof-of-concept, I guess.

--- gnus-msg.el~	Sat Nov 17 19:16:46 2001
+++ gnus-msg.el	Sat Nov 17 19:18:30 2001
@@ -867,7 +867,7 @@
    (gnus-summary-work-articles n) t (gnus-summary-work-articles n)))
 
 (defun gnus-summary-mail-forward (&optional arg post)
-  "Forward the current message to another user.
+  "Forward the current message(s) to another user.
 If ARG is nil, see `message-forward-as-mime' and `message-forward-show-mml';
 if ARG is 1, decode the message and forward directly inline;
 if ARG is 2, forward message as an rfc822 MIME section;
@@ -878,31 +878,33 @@
 For the `inline' alternatives, also see the variable
 `message-forward-ignored-headers'."
   (interactive "P")
-  (let ((message-forward-as-mime message-forward-as-mime)
-	(message-forward-show-mml message-forward-show-mml))
-    (cond
-     ((null arg))
-     ((eq arg 1)
-      (setq message-forward-as-mime nil
-	    message-forward-show-mml t))
-     ((eq arg 2)
-      (setq message-forward-as-mime t
-	    message-forward-show-mml nil))
-     ((eq arg 3)
-      (setq message-forward-as-mime t
-	    message-forward-show-mml t))
-     ((eq arg 4)
-      (setq message-forward-as-mime nil
-	    message-forward-show-mml nil))
-     (t
-      (setq message-forward-as-mime (not message-forward-as-mime))))
-    (let ((gnus-article-reply (gnus-summary-article-number)))
-      (gnus-setup-message 'forward
-	(gnus-summary-select-article)
-	(let ((mail-parse-charset gnus-newsgroup-charset)
-	      (mail-parse-ignored-charsets gnus-newsgroup-ignored-charsets))
-	  (set-buffer gnus-original-article-buffer)
-	  (message-forward post))))))
+  (if (null (cdr (gnus-summary-work-articles nil)))
+      (let ((message-forward-as-mime message-forward-as-mime)
+            (message-forward-show-mml message-forward-show-mml))
+        (cond
+         ((null arg))
+         ((eq arg 1)
+          (setq message-forward-as-mime nil
+                message-forward-show-mml t))
+         ((eq arg 2)
+          (setq message-forward-as-mime t
+                message-forward-show-mml nil))
+         ((eq arg 3)
+          (setq message-forward-as-mime t
+                message-forward-show-mml t))
+         ((eq arg 4)
+          (setq message-forward-as-mime nil
+                message-forward-show-mml nil))
+         (t
+          (setq message-forward-as-mime (not message-forward-as-mime))))
+        (let ((gnus-article-reply (gnus-summary-article-number)))
+          (gnus-setup-message 'forward
+            (gnus-summary-select-article)
+            (let ((mail-parse-charset gnus-newsgroup-charset)
+                  (mail-parse-ignored-charsets gnus-newsgroup-ignored-charsets))
+              (set-buffer gnus-original-article-buffer)
+              (message-forward post)))))
+    (gnus-uu-digest-mail-forward arg post)))
 
 (defun gnus-summary-resend-message (address n)
   "Resend the current article to ADDRESS."


-- 
 /////////////////  |                  | The spark of a pin
<sneakums@zork.net> |  (require 'gnu)  | dropping, falling feather-like.
 \\\\\\\\\\\\\\\\\  |                  | There is too much noise.

Re: RFE: gnus-summary-mail-forward with process marks

[ShengHuo ZHU]

Sean Neakums <sneakums@zork.net> writes:

> It'd be nifty (and more intuitive) if gnus-summary-mail-forward could
> punt to gnus-uu-digest-mail-forward when process marks are set.
>
> The following hack (only two new lines of code have been added,
> despite the number of patched lines) does this, but probably not in
> the best way.  Call it a proof-of-concept, I guess.

Thanks. I've installed the patch.

ShengHuo

Re: RFE: gnus-summary-mail-forward with process marks

[Lars Magne Ingebrigtsen]

Sean Neakums <sneakums@zork.net> writes:

> It'd be nifty (and more intuitive) if gnus-summary-mail-forward could
> punt to gnus-uu-digest-mail-forward when process marks are set.

The `S O m' and `S o m' commands already does something similar.  I'm
not sure that the `gnus-summary-mail-forward' function needs to behave
this way...

-- 
(domestic pets only, the antidote for overdose, milk.)
   larsi@gnus.org * Lars Magne Ingebrigtsen