Re: How to use gnus-summary-universal-argument

[Leonidas Tsampros <ltsampros@upnet.gr>]

Cecil Westerhof <Cecil@decebal.nl> writes:

> I move spam message from different places to a certain folder to be
> processed. I like them to be easily marked as read. I can do this with:
>     M P A
>     M-&
>     d
> but I am a real programmer and lazy: I do not want to do what I can let
> the computer do. ;-]

Hi Cecil,

Usually, the way I marked spam was simply by using B m
(gnus-summary-move-article) and have them moved to my nnml:mail.junk
directory. B m works either with numerical prefixes or with process
marks. This is how I achieved a little bit of automation:

(defun gnus-move-to-junk (&optional n)
  (interactive "P")
  (gnus-summary-move-article n "nnml:mail.junk" nil 'move))

(add-hook 'gnus-startup-hook
	  '(lambda () 
	     (define-key gnus-summary-mode-map (kbd "j") 'gnus-move-to-junk)))

I remapped the 'j' key as I never used the defualt goto-article
command. 

Hope this helps!

> So I started writing the following function:
>     (defun gnus-summary-mark-all-messages-as-read ()
>       "If in gnus-summary-mode mark all messages as read"
>       (interactive)
>       (if (not (equal major-mode 'gnus-summary-mode))
>           (message "This function can only be used in gnus-summary-mode")
>         (gnus-uu-mark-all)
>         (gnus-summary-universal-argument 'gnus-summary-mark-as-read-forward)))
>
> This does not work. The description of gnus-summary-universal-argument
> is:
>     gnus-summary-universal-argument is an interactive compiled Lisp
>     function.
>
>     (gnus-summary-universal-argument ARG)
>
>     Perform any operation on all articles that are process/prefixed.
>
> How do I need to define the argument to let this work?
>
> On a side note: what would be a good key to bind this function to?