From 8d885d7344cd64bcd2a570eab3b97a8515db8799 Mon Sep 17 00:00:00 2001 From: tfheen Date: Thu, 26 Mar 2009 10:04:05 +0000 Subject: [PATCH] Update for new world order git-svn-id: file:///svn/tfheen/trunk/dotfiles@1340 8da78d58-1cd3-0310-bee5-d77bd1b3e8bf --- gnus | 15 ++++++++++++++- 1 file changed, 14 insertions(+), 1 deletion(-) diff --git a/gnus b/gnus index 3a25b59..8219e87 100644 --- a/gnus +++ b/gnus @@ -506,6 +506,19 @@ OBS: "))) (add-hook 'gnus-select-group-hook 'tfheen-set-fill-prefix) (add-hook 'gnus-exit-group-hook 'tfheen-set-fill-prefix) +(defun tfheen-forward-to-is-admin-rpl-ticket (&optional prefix ticketno) + "Forwards the current article (or articles) to is-admin RT @ RPL" + (interactive "p\nnTicket number? ") + (gnus-summary-mail-forward nil) + (message-narrow-to-head) + (goto-char (point-min)) + (search-forward "To: " (point-max) t) + (insert "linpro-is-admin" (char-to-string 64) "support.linpro.no") + (goto-char (point-min)) + (search-forward "Subject:" (point-max) t) + (insert (format "[Linpro #%d]" ticketno)) + (widen)) + (defun tfheen-send-approved-mail () "Sends email to gullkorn@usenet.no when approving an article" (if (string-equal gnus-newsgroup-name "nnml:drift.news.nag.submissions") @@ -664,7 +677,7 @@ on multiple mail-followup-to headers" (cw/for-host "qurzaw" (setq tfheen-spam-folder (lambda () (if (string-match "nnimap\\+mail\\.err\\.no" gnus-newsgroup-name) (format-time-string "nnimap+mail.err.no:spam.%Y-%m") - (format-time-string "INBOX/spam.%Y"))))) + (format-time-string "spam.%Y"))))) (defun tfheen-mark-as-spam () (interactive) -- 2.39.5