Update for new world order

git-svn-id: file:///svn/tfheen/trunk/dotfiles@1340 8da78d58-1cd3-0310-bee5-d77bd1b3e8bf

diff --git a/gnus b/gnus
index 3a25b594482f9598c9cb8728892f69f6ed78d11b..8219e87a39ba942c4d85e1c2f436968fc1f1cc7f 100644 (file)
--- a/gnus
+++ b/gnus
@@ -506,6 +506,19 @@ OBS: <URL:http://www.stud.ifi.uio.no/~jani/OBS/no-alt-gullkorn.shtml>")))
 (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)