Re: # # # A P

[<jari.aalto@poboxes.com>]

 97-12-21 Michael R Cook <mcook@cognex.com> list.ding
| >>>>> "LBR" == Lars Balker Rasmussen <lbr@image.dk> writes:
|
| If someone could give us a quick tutorial on how to convert a
| typical #-oblivious function to be #-aware, we could send
| patches, rather than just asking Lars to do the work.

The framework goes something like this, this is excerpt from my TinyGnus.el
package. Notice that I reset some hooks in #-processing functions.

jari

(put 'tign-summary-map-articles-macro 'lisp-indent-function 0)
(defmacro tign-summary-map-articles-macro (&rest body)
  "Map through marked articles in Summary buffer.
The variable `nbr' has the current article number. Use command
 (return) to stop the loop."
  (`
   (let* ((articles (gnus-summary-work-articles nil))
          gnus-article-display-hook     ;Do not run this
          gnus-article-prepare-hook
          gnus-select-article-hook
          gnus-article-mode-hook
          gnus-visual-mark-article-hook
          )
     ;; (gnus-summary-save-process-mark)
     (dolist (nbr articles)
       (,@ body)
       ))))


    (tign-summary-map-articles-macro
      (gnus-summary-select-article 'all nil 'pseudo nbr)
      ...Do action...
      )