gnus-select-method '(nnnil "")
gnus-secondary-select-methods
- `(,@(cond
- ((string= (system-name) "langa")
+ `(,@(if (string= (system-name) "darya")
+ '((nnimap
+ "canonical"
+ (nnimap-stream plain)
+ (nnimap-address "127.0.0.1")
+ (nnimap-server-port 143)
+ (nnimap-authenticator plain)
+ (nnimap-user "bandali@canonical.local")))
'((nnimap
"kelar"
(nnimap-stream plain)
;; spam
("X-Spam-Flag" "YES" "Junk")
;; catch-all
- "INBOX")))))
- ((string= (system-name) "jirud")
- '((nnimap
- "sfl"
- (nnimap-stream tls)
- (nnimap-address "mail.savoirfairelinux.com")
- (nnimap-user "amin.bandali"))))))
+ "INBOX")))
+ ;; (nnimap
+ ;; "sfl"
+ ;; (nnimap-stream tls)
+ ;; (nnimap-address "mail.savoirfairelinux.com")
+ ;; (nnimap-user "amin.bandali"))
+ )))
gnus-message-archive-group "nnimap+gnu:INBOX"
gnus-parameters
'(("l\\.deepspec"
(to-list . "haskell-cafe@haskell.org")
(list-identifier . "\\[Haskell-cafe\\]"))
("gnu.*"
- (gcc-self . t))
- ;; ("l\\."
- ;; (subscribed . t))
- ("nnimap\\+uwaterloo:.*"
(gcc-self . t)))
;; nnimap-record-commands t
;; gnus-large-newsgroup 50
;; "^References:"
"^List-Id:"
"^Gnus-Warning:")
- gnus-visible-headers (mapconcat 'identity
+ gnus-visible-headers (mapconcat #'identity
gnus-sorted-header-list
"\\|")
;; local-lapsed article dates
(defvar b/sfl-p nil)
(with-eval-after-load 'gnus-msg
- (defvar b/shemshak-signature "Amin Bandali
-https://shemshak.org/~bandali")
- (defvar b/uwaterloo-signature "Amin Bandali, MMath
-https://shemshak.org/~bandali")
- (defvar b/csc-signature "Amin Bandali (https://shemshak.org/~bandali)
-Systems Committee <syscom@csclub.uwaterloo.ca>
-Computer Science Club of the University of Waterloo")
- (defvar b/sfl-signature "Amin Bandali
-Free Software Consultant
-Savoir-faire Linux
-jami:bandali")
+ (let ((bandali "Amin Bandali (https://kelar.org/~bandali)"))
+ (defvar b/canonical-signature
+ (mapconcat
+ #'identity
+ `(,bandali
+ "Software Engineer (Desktop), Canonical")
+ "\n"))
+ (defvar b/csc-signature
+ (mapconcat
+ #'identity
+ `(,bandali
+ "Systems Committee <syscom@csclub.uwaterloo.ca>"
+ "Computer Science Club of the University of Waterloo")
+ "\n"))
+ (defvar b/sfl-signature
+ (mapconcat
+ #'identity
+ `(,bandali
+ "Volunteer, Savoir-faire Linux"
+ "jami:bandali")
+ "\n")))
(setq
gnus-message-replysign t
gnus-posting-styles
'((".*"
(address "bandali@gnu.org")
("X-Message-SMTP-Method" "smtp fencepost.gnu.org 587"))
- ;; ("nnimap\\+gnu:l\\..*"
- ;; (signature nil))
((header "subject" "ThankCRM")
(to "webmasters-comment@gnu.org")
- (body "")
- (eval (setq b/message-cite-say-hi nil)))
+ (body ""))
("nnimap\\+kelar:.*"
(address "bandali@kelar.org")
("X-Message-SMTP-Method" "smtp mail.kelar.org 587")
- (body "\nBest,\n")
- (gcc "nnimap+kelar:Sent")
- (eval (setq b/message-cite-say-hi t)))
+ (gcc "nnimap+kelar:Sent"))
("nnimap\\+shemshak:.*"
(address "amin@shemshak.org")
("X-Message-SMTP-Method" "smtp mail.shemshak.org 587")
- (body "\nBest,\n")
- (signature b/shemshak-signature)
- (gcc "nnimap+shemshak:Sent")
- (eval (setq b/message-cite-say-hi t)))
- ("nnimap\\+uwaterloo:.*"
- (address "bandali@uwaterloo.ca")
- ("X-Message-SMTP-Method" "smtp connect.uwaterloo.ca 587")
- (body "\nBest,\n")
- (signature b/uwaterloo-signature))
- ("nnimap\\+uwaterloo:INBOX"
- (gcc "\"nnimap+uwaterloo:Sent Items\""))
+ (gcc "nnimap+shemshak:Sent"))
+ ("nnimap\\+canonical:.*"
+ (address "amin.bandali@canonical.com")
+ ("X-Message-SMTP-Method" "smtp smtp.canonical.com 587")
+ (signature b/canonical-signature)
+ (gcc "nnimap+canonical:Sent"))
("nnimap\\+csc:.*"
(address "bandali@csclub.uwaterloo.ca")
("X-Message-SMTP-Method" "smtp mail.csclub.uwaterloo.ca 587")
(gcc "nnimap+csc:Sent"))
("nnimap\\+sfl:.*"
(address "amin.bandali@savoirfairelinux.com")
- (signature b/sfl-signature)
("X-Message-SMTP-Method" "smtp mail.savoirfairelinux.com 587")
- (gcc "nnimap+sfl:Sent")
- (eval (setq-local b/sfl-p t))))))
+ (signature b/sfl-signature)
+ (eval (setq-local b/sfl-p t))
+ (gcc "nnimap+sfl:Sent")))))
;; hooks
;; (with-eval-after-load 'gnus
;; (add-hook 'gnus-message-setup-hook
gnus-topic-topology
`(("Gnus" visible nil nil)
(("misc" visible nil nil))
- ,@(cond
- ((string= (system-name) "jirud")
- '((("sfl" visible nil nil))))
- ((string= (system-name) "langa")
+ ,@(if (string= (system-name) "darya")
+ '((("canonical" visible nil nil)))
'((("csc" visible nil nil))
(("uwaterloo" visible nil nil))
(("kelar" visible nil nil))
(("shemshak" visible nil nil))
(("gnu" visible nil nil))
- (("old-gnu" visible nil nil))))))))
+ (("old-gnu" visible nil nil))
+ (("sfl" visible nil nil)))))))
(with-eval-after-load 'gnus-agent
(setq gnus-agent-synchronize-flags 'ask))
(message-yank-prefix "> ")
(message-yank-cited-prefix ">")
(message-yank-empty-prefix ">")
- (message-citation-line-format
- (if b/message-cite-say-hi
- (concat "Hi %F,\n\n" b/message-cite-style-format)
- b/message-cite-style-format)))
- "Citation style based on Mozilla Thunderbird's. Use with message-cite-style.")
+ (message-citation-line-format b/message-cite-style-format))
+ "Citation style based on Mozilla Thunderbird's. Use with message-cite-style.")
(setq
message-elide-ellipsis "[...]\n"
;; message-cite-style 'message-cite-style-bandali
message-subscribed-address-functions
'(gnus-find-subscribed-addresses)
message-dont-reply-to-names
- "\\(\\(bandali@kelar\\.org\\)\\|\\(amin@shemshak\\.org\\)\\|\\(\\(bandali\\|mab\\|aminb?\\)@gnu\\.org\\)\\|\\(a?bandali@\\(csclub\\.\\)?uwaterloo\\.ca\\)\\|amin\\.bandali@savoirfairelinux\\.com\\)")
+ "\\(\\(bandali@kelar\\.org\\)\\|\\(amin@shemshak\\.org\\)\\|\\(\\(bandali\\|mab\\|aminb?\\)@gnu\\.org\\)\\|\\(a?bandali@\\(csclub\\.\\)?uwaterloo\\.ca\\)\\|amin\\.bandali@\\(canonical\\|savoirfairelinux\\)\\.com\\)")
;; (custom-set-faces
;; '(message-header-subject
;; ((t (:foreground "#111" :weight semi-bold))))
;; '(message-header-cc
;; ((t (:foreground "#333" :weight normal))))
- ;; footnote
- ;; (with-eval-after-load 'footnote
- ;; (setq footnote-start-tag ""
- ;; footnote-end-tag ""
- ;; footnote-style 'unicode))
-
;; custom newline & reformat function
(defun b/message-newline-or-asterism (arg)
"Create newlines per my liking or insert asterism if ARG is
(kbd "M-RET") #'b/message-newline-or-asterism)
;; local key bindings
- (define-key message-mode-map
- [remap next-line] #'mail-abbrev-next-line)
- (define-key message-mode-map
- [remap end-of-buffer] #'mail-abbrev-end-of-buffer)
- (defvar b/footnote-prefix-map)
- (define-prefix-command 'b/footnote-prefix-map)
- (define-key message-mode-map (kbd "C-c f n")
- 'b/footnote-prefix-map)
- (define-key b/footnote-prefix-map (kbd "a")
- #'footnote-add-footnote)
- (define-key b/footnote-prefix-map (kbd "b")
- #'footnote-back-to-message)
- (define-key b/footnote-prefix-map (kbd "c")
- #'footnote-cycle-style)
- (define-key b/footnote-prefix-map (kbd "d")
- #'footnote-delete-footnote)
- (define-key b/footnote-prefix-map (kbd "g")
- #'footnote-goto-footnote)
- (define-key b/footnote-prefix-map (kbd "r")
- #'footnote-renumber-footnotes)
- (define-key b/footnote-prefix-map (kbd "s")
- #'footnote-set-style))
+ ;; (define-key message-mode-map
+ ;; [remap next-line] #'mail-abbrev-next-line)
+ ;; (define-key message-mode-map
+ ;; [remap end-of-buffer] #'mail-abbrev-end-of-buffer)
+ )
;; hooks
;; (add-hook 'message-setup-hook #'mml-secure-message-sign-pgpmime)
(add-hook 'message-mode-hook #'flyspell-mode)
projects / ~bandali / configs / commitdiff