cleanup gnus

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

diff --git a/gnus b/gnus
index 5785fc079c1fb6bd8a175d55bd699b19e9537118..a36cbc6222ee4916d6d55edce11a09839b38a4ab 100644 (file)
--- a/gnus
+++ b/gnus
@@ -60,23 +60,7 @@
   )
 
 (cw/for-host "qurzaw"
-  (setq gnus-select-method '(nnimap "linpro"
-                                   (nnimap-address "imap.linpro.no")
-                                   (nnimap-server-port 993)
-                                   (nnimap-stream ssl)
-                                    (nnimap-authinfo-file "~/.imap-authinfo.gpg")))
-;  (add-to-list 'gnus-secondary-select-methods '(nntp "nntp.linpro.no"
-;                                                   (nntp-address "login.linpro.no")
-;                                                   (nntp-open-connection-function nntp-open-rlogin)
-;                                                   (nntp-end-of-line "\n")
-;                                                   (nntp-rlogin-parameters
-;                                                    ("telnet" "nntp.linpro.no" "nntp"))))
-;  (add-to-list 'gnus-secondary-select-methods '(nnimap "ox.linpro"
-;                                  (nnimap-address "ox.linpro.no")
-;                                  (nnimap-server-port 993)
-;                                  (nnimap-stream ssl)
-;                                    (nnimap-authinfo-file "~/.imap-authinfo.gpg")))
-  (add-to-list 'gnus-secondary-select-methods '(nnimap "Varnish"
+  (setq 'gnus-select-method '(nnimap "Varnish"
                                    (nnimap-address "imap.gmail.com")
                                    (nnimap-server-port 993)
                                    (nnimap-stream ssl)
@@ -537,19 +521,6 @@ 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")