Re: set labels in nnml or nnfolder groups

[Reiner Steib <reinersteib+gmane@imap.cc>]

On Mon, Feb 06 2006, Uwe Brauer wrote:

> A while ago I asked whether it is posible to set labels in nnimap
> groups and the answer was, not yet. 
>
> Now I cannot find in the manual anything about labels in (local)
> groups such that nnml and nnfolder.
>
> By label I understand things like
> IM (important)
> NR (need reply)

Below is a *draft* version to display the content of an X-Gnus-Label
header by adding "%4u&label;" in `gnus-summary-line-format'.  What is
missing is a command to add labels without manually editing the
article.

--8<---------------cut here---------------start------------->8---
;; Related URLs:
;; http://thread.gmane.org/m2n05mr2iv.fsf%40catbert.dok.org
;; http://www.fas.harvard.edu/computing/kb/kb1059.html
;; http://ilias.ca/blog/2005/09/gmail-labels-in-thunderbird.html

(defcustom rs-gnus-summary-line-label-alist
  '(("Important" "Im")
    ("Work" "Wo")
    ("Personal" "Pe")
    ("To do" "TD")
    ("Later" "La")
    ("Need reply" "NR"))
  "Alist of regular expressions and summary line indicators."
  :group 'gnus-summary-format
  :type '(repeat (list (regexp :tag "Regexp")
		       (string :tag "Indicator"))))

;;;###autoload
(defun rs-gnus-summary-line-label (header)
  "Display label of message in summary line.

This function is intended to be used in `gnus-summary-line-format-alist', with
\(defalias 'gnus-user-format-function-X 'rs-gnus-summary-line-label).
See (info \"(gnus)Group Line Specification\").

You need to add `X-Gnus-Label' to `nnmail-extra-headers' and
`gnus-extra-headers', see Info node `(gnus)To From Newsgroups'."
  (let ((case-fold-search t)
	(label (or (cdr (assq 'X-Gnus-Label (mail-header-extra header)))
		   ""))
	indicator)
    (mapc (lambda (el)
	    (when (string-match (car el) label)
	      (setq indicator (cadr el))))
	  rs-gnus-summary-line-label-alist)
    (if indicator
	indicator
      label)))

;;;###autoload
(defun rs-gnus-summary-limit-to-label (regexp &optional not-matching)
  "Limit the summary buffer to articles that match a label."
  (interactive
   (list (read-string
	  (format "%s label (regexp): "
		  (if current-prefix-arg "Exclude" "Limit to")))
	 current-prefix-arg))
  (gnus-summary-limit-to-extra 'X-Gnus-Label regexp not-matching))

(defalias 'gnus-user-format-function-label 'rs-gnus-summary-line-label)
--8<---------------cut here---------------end--------------->8---

Bye, Reiner.
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo---  |  PGP key available  |  http://rsteib.home.pages.de/