From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/86271 Path: news.gmane.org!not-for-mail From: Peter Davis Newsgroups: gmane.emacs.gnus.general Subject: Re: Gnus as my Fastmail main client Date: Tue, 10 Nov 2015 09:27:40 -0500 Message-ID: <6sw6c7ziymdj4z.fsf@pfdstudio.com> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable X-Trace: ger.gmane.org 1447165740 28228 80.91.229.3 (10 Nov 2015 14:29:00 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Tue, 10 Nov 2015 14:29:00 +0000 (UTC) Cc: ding@gnus.org To: lists.emacs.gnus@xavier.maillard.im Original-X-From: ding-owner+M34503@lists.math.uh.edu Tue Nov 10 15:28:49 2015 Return-path: Envelope-to: ding-account@gmane.org Original-Received: from lists1.math.uh.edu ([129.7.128.208]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1Zw9ue-00065h-5F for ding-account@gmane.org; Tue, 10 Nov 2015 15:28:44 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by lists1.math.uh.edu with smtp (Exim 4.85) (envelope-from ) id 1Zw9tl-000115-4M; Tue, 10 Nov 2015 08:27:49 -0600 Original-Received: from mx2.math.uh.edu ([129.7.128.33]) by lists1.math.uh.edu with esmtps (TLSv1.2:AES128-GCM-SHA256:128) (Exim 4.85) (envelope-from ) id 1Zw9ti-00010k-RO for ding@lists.math.uh.edu; Tue, 10 Nov 2015 08:27:46 -0600 Original-Received: from quimby.gnus.org ([80.91.231.51]) by mx2.math.uh.edu with esmtps (TLSv1.2:DHE-RSA-AES128-SHA:128) (Exim 4.85) (envelope-from ) id 1Zw9tg-0007W2-UL for ding@lists.math.uh.edu; Tue, 10 Nov 2015 08:27:46 -0600 Original-Received: from out4-smtp.messagingengine.com ([66.111.4.28]) by quimby.gnus.org with esmtps (TLS1.2:DHE_RSA_AES_256_CBC_SHA256:256) (Exim 4.80) (envelope-from ) id 1Zw9tf-0003IF-06 for ding@gnus.org; Tue, 10 Nov 2015 15:27:43 +0100 Original-Received: from compute2.internal (compute2.nyi.internal [10.202.2.42]) by mailout.nyi.internal (Postfix) with ESMTP id A2413204CA for ; Tue, 10 Nov 2015 09:27:40 -0500 (EST) Original-Received: from frontend1 ([10.202.2.160]) by compute2.internal (MEProxy); Tue, 10 Nov 2015 09:27:40 -0500 DKIM-Signature: v=1; a=rsa-sha1; c=relaxed/relaxed; d= messagingengine.com; h=cc:content-transfer-encoding:content-type :date:from:message-id:mime-version:subject:to:x-sasl-enc :x-sasl-enc; s=smtpout; bh=ZaCQiIqx2ytJbj3LP5HaOhMEmW4=; b=Y+0m6 BYTnS1ER99mRF8Y5+FHrmyrJ6Drvbx+CgQ7NsJhwIfTyuGu7rxx1htKlXUGNCkYa wMsy6EYasj1/8R6RXERAdcpq1eE3AsdB1IkgmtTQ+pxk2kU9cECM1gD/OtxTFwOE Fz/cSkLAxeH0iWx9pNa3gdH8j1mDYbUahtHyIo= X-Sasl-enc: s9ji/abC0gjIcqV1AfPxYAUP9rF3TOQZqy5O9skNdqO1 1447165660 Original-Received: from BO-C02PWE1MG8WN.local (unknown [206.208.105.129]) by mail.messagingengine.com (Postfix) with ESMTPA id 4C0E1C016F6; Tue, 10 Nov 2015 09:27:40 -0500 (EST) X-Face: @Pq3?My0v;TPXbg}b;pHV{1I-kH,?FV:1$wMunQgt%u;KIx8Jl%)8E;Tag?jQQu4+Q,/QiTe@x!bk'k@uXGAj?wVZSBSj}T1X}Yql~e]uv@#]I>5F:BJ;+\k5B&3hG3ZT8_{3>#[D)SbK/9t&3TG$L7SnV3G Face: iVBORw0KGgoAAAANSUhEUgAAADAAAAAwAgMAAAAqbBEUAAAABGdBTUEAALGPC/xhBQAAACBj SFJNAAB6JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAADFBMVEX7+/yUqsBNc5n/ //8Nz43fAAAAAWJLR0QDEQxM8gAAAAlwSFlzAAALEwAACxMBAJqcGAAAAAd0SU1FB98HHAoRJOUe cnoAAAGASURBVCjPTZIxb6NAEIUHlCBlKzdx4f4ihV/BFZc6RYwOVydLQfb+is0VJ5kqOsnIUGEE iH2/8t4sPilTLPvp7Q6PN4iwVsCrSArdC1grrro3ClfBHITx/myxQIw3kR/4g4FgR5V3PTo99apw P6kS+dBRdqok8wIGjtAtsFHYuAWCAStfADcIbmb5Lpma9ZnEA33AWQ/vJO4UOoyYnSQuRl/vfY/p U4yLp367B6EjJFP51uQN/ioYVNtTU+GDkBmctk1ZwREkPfv8PbfIFCye8287uhlUUWgYwiwbgS+L 7WHnCQ800Pw8X5jNAuPhfLSzsEFEa7tybzv5JeY3+mKf975ThTD170yN/k2Fyp/qU+sIMaGtLN0o 0CdMm8AZfmmKdDagGwLdRMJEVvLEdJ7/Z5VqXres5fAFIj6jMDBWMugQb1N4/OTE2usCJTNOxjoL Vwo9aqtwaa3rQ/1yoRQ96ZjXTXa8Pt6ZY3hvKet6bNuLwtFKNNUFQpdiCD9EmPI/i0CsgbQMqlYA AAAldEVYdGRhdGU6Y3JlYXRlADIwMTUtMTAtMDVUMTU6MDU6MzQtMDQ6MDBrPIDEAAAAJXRFWHRk YXRlOm1vZGlmeQAyMDE1LTA3LTI4VDEwOjE3OjM2LTA0OjAwp4X3LAAAAABJRU5ErkJggg== X-Spam-Score: -2.9 (--) List-ID: Precedence: bulk Xref: news.gmane.org gmane.emacs.gnus.general:86271 Archived-At: lists.emacs.gnus@xavier.maillard.im writes: > I subscribed to Fastmail service and I'd like to use Gnus to access my > messages. I do not want to start over from scratch (I lost all my .gnus > setup years ago) so I am looking for a ready-to-use-fastmail-setup for > Gnus. Does anybody have this ? Below is the setup I use for Fastmail. At one point, I think I had trouble = using the Fastmail smtp, so that's commented out and this uses GMail instead. I don't remember the details, but it might be worth get= ting the Fastmail smtp working again. I left in some other stuff I had commented out, in case it's useful. (set-background-color "white") ;; @see http://www.gnu.org/software/emacs/manual/html_node/gnus/Expiring-Ma= il.html ;; press 'E' to expire email (setq nnmail-expiry-target "INBOX.Trash") (setq nnmail-expiry-wait 'immediate) ;; (setq gnus-fetch-old-headers t) ;; (setq gnus-select-method '(nnimap "mail.messagingengine.com" (nnimap-str= eam ssl) (nnimap-expunge-on-close ask))) (setq user-mail-address "...") (setq user-full-name "...") ;; (setq gnus-select-method ;; '(nnimap "gmail" ;; (nnimap-address "imap.gmail.com") ;; (nnimap-server-port 993) ;; (nnimap-stream ssl))) (setq gnus-select-method '(nnimap "Fastmail" ; primary email (nnimap-address "mail.messagingengine.com") (nnimap-server-port 993) (nnimap-authenticator login) (nnimap-expunge-on-close 'never) (nnimap-stream ssl) )) ;; (setq gnus-select-method ;; '(nnimap "gmail" ;; (nnimap-address "imap.gmail.com") ;; (nnimap-server-port 993) ;; (nnimap-stream ssl))) (setq message-send-mail-function 'smtpmail-send-it smtpmail-starttls-credentials '(("smtp.gmail.com" 587 nil nil)) smtpmail-auth-credentials '(("smtp.gmail.com" 587 "..." nil)) smtpmail-default-smtp-server "smtp.gmail.com" smtpmail-smtp-server "smtp.gmail.com" smtpmail-smtp-service 587 starttls-use-gnutls t gnus-ignored-newsgroups "^to\\.\\|^[0-9. ]+\\( \\|$\\)\\|^[\"]\"[#'()= ]") ;; (setq send-mail-function 'smtpmail-send-it) ;; (setq message-send-mail-function 'smtpmail-send-it) ;; (setq smtpmail-default-smtp-server "smtps-proxy.messagingengine.com") ;; (setq smtpmail-auth-credentials '(("smtps-proxy.messagingengine.com" "80= " "..." ""))) ;; (setq smtpmail-starttls-credentials '(("smtps-proxy.messagingengine.com"= "80" nil nil))) (setq gnus-article-browse-delete-temp t) (setq gnus-fetch-old-headers t) (setq message-sendmail-envelope-from 'header) (setq send-mail-function 'smtpmail-send-it message-send-mail-function 'smtpmail-send-it) (setq smtpmail-default-smtp-server "smtps-proxy.messagingengine.com" smtpmail-smtp-server "smtps-proxy.messagingengine.com" ;; smtpmail-smtp-service 80 ;; smtpmail-starttls-credentials '(("smtps-proxy.messagingengine.com"= 80 nil nil))) smtpmail-starttls-credentials '(("smtps-proxy.messagingengine.com" ni= l nil nil))) (setq smtpmail-stream-type 'tls) (setq fill-flowed-display-column nil) (add-hook 'gnus-article-mode-hook (lambda () (setq truncate-lines nil word-wrap t))) (setq gnus-posting-styles '((".*" (name "...") (address "...") (BCC "...")))) (setq gnus-html-frame-width 180) (defun my-message-mode-setup () (setq fill-column 132) (turn-on-auto-fill)) (add-hook 'message-mode-hook 'my-message-mode-setup) ;;switch to gnus group buffer or start gnus (defun my-switch-to-gnus-group-buffer () "Switch to gnus group buffer if it exists, otherwise start gnus" (interactive) (if (or (not (fboundp 'gnus-alive-p)) (not (gnus-alive-p))) (gnus) (switch-to-buffer "*Group*"))) (global-set-key (kbd "C-c n") 'my-switch-to-gnus-group-buffer) ;; Set up summary buffer to show tree view, dates ;; (dolist (c '((?\207 . ?q) (?\216 . ?x) (?\212 . ?t) (?\203 . ?m))) ;; (aset standard-display-table (car c) ;; (vector (create-glyph (concat "\e(0" "\e[35m" ; magenta ;; (char-to-string (cdr c)) ;; "\e[0m" "\e(B"))))) ;; (let ((val 129)) ;; (while (< val 160) ;; (aset standard-display-table val (vector (create-glyph val))) ;; (setq val (1+ val)))) ;; (setq gnus-summary-line-format "%U%u&thread;%R%d %-5,5L %-20,20n %B%-80,= 80S\n" ;; gnus-sum-thread-tree-vertical "\216" ;; gnus-sum-thread-tree-root "" ;; gnus-sum-thread-tree-false-root "" ;; gnus-sum-thread-tree-indent " " ;; gnus-sum-thread-tree-single-indent "" ;; gnus-sum-thread-tree-leaf-with-other "\212\207>" ;; gnus-sum-thread-tree-single-leaf "\203\207>") ;; (defun gnus-user-format-function-thread (dummy) ;; (propertize gnus-tmp-thread-tree-header-string 'gnus-face t)) ;; (let ((val 129)) ;; (while (< val 160) ;; (aset standard-display-table val (vector (create-glyph val))) ;; (setq val (1+ val)))) ;; (setq gnus-summary-line-format "%U%R%d %-5,5L %-20,20n %B%-80,80S\n" ;; gnus-sum-thread-tree-vertical "\232" ;; gnus-sum-thread-tree-root "" ;; gnus-sum-thread-tree-false-root "" ;; gnus-sum-thread-tree-indent " " ;; gnus-sum-thread-tree-single-indent "" ;; gnus-sum-thread-tree-leaf-with-other "\226\223>" ;; gnus-sum-thread-tree-single-leaf "\217\223>") (setq-default gnus-summary-line-format "%U%R%z %(%&user-date; %-15,15f %B%s%)\n" gnus-user-date-format-alist '((t . "%Y-%m-%d %H:%M")) gnus-summary-thread-gathering-function 'gnus-gather-threads-by-referen= ces gnus-thread-sort-functions '(gnus-thread-sort-by-date) gnus-sum-thread-tree-false-root "" gnus-sum-thread-tree-indent " " gnus-sum-thread-tree-leaf-with-other "=E2=94=9C=E2=96=BA " gnus-sum-thread-tree-root "" gnus-sum-thread-tree-single-leaf "=E2=94=94=E2=96=BA " gnus-sum-thread-tree-vertical "=E2=94=82") ;;; ;; Scrolling like mutt for group, summary, and article buffers. ;; ;; Being able to scroll the current buffer view by one line with a ;; single key, rather than having to guess a random number and recenter ;; with `C-u NUM C-l' is _very_ convenient. Mutt binds scrolling by one ;; line to '<' and '>', and it's something I often miss when working ;; with Gnus buffers. Thanks to the practically infinite customizability ;; of Gnus, this doesn't have to be an annoyance anymore. =20 ;; (defun keramida-mutt-like-scrolling () ;; "Set up '<' and '>' keys to scroll down/up one line, like mutt." ;; ;; mutt-like scrolling of summary buffers with '<' and '>' keys. ;; (local-set-key (kbd ">") 'scroll-up-line) ;; (local-set-key (kbd "<") 'scroll-down-line)) =20 ;; (add-hook 'gnus-group-mode-hook 'keramida-mutt-like-scrolling) ;; (add-hook 'gnus-summary-mode-hook 'keramida-mutt-like-scrolling) ;; (add-hook 'gnus-article-prepare-hook 'keramida-mutt-like-scrolling) ;; BBDB ;; (require 'bbdb) ;; (bbdb-initialize 'gnus 'message) ;; (require 'gnus-registry) ;; (gnus-registry-initialize) (defun pd/alter-group-map () (local-set-key "h" "jINBOX")) ;; From Peter M=C3=BCnster (defun pm/alter-summary-map () (local-set-key "d" [?M ?M ?e ?e down ?g]) (local-set-key "vj" "BmINBOX.Junk Mail")) (defun pm/alter-article-map () (local-set-key "d" "MMeen")) (add-hook 'gnus-group-mode-hook 'pd/alter-group-map) (add-hook 'gnus-summary-mode-hook 'pm/alter-summary-map) (add-hook 'gnus-article-mode-hook 'pm/alter-article-map) ;; insert x-face (defun mail-insert-x-face () (save-excursion (goto-char (point-min)) (search-forward mail-header-separator) (beginning-of-line nil) (insert "X-Face: ") (insert-file "~/xface.dat"))) (add-hook 'message-send-hook 'mail-insert-x-face) (setq message-required-headers ()) (setq message-required-mail-headers (nconc message-required-headers (list '(Face . (lambda () (gnus-face-from-file "~/Dropbox/pd-logo-face.= png"))))))