From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/83396 Path: news.gmane.org!not-for-mail From: Rainer M Krug Newsgroups: gmane.emacs.gnus.general Subject: K-e does not open html in browser anymore Date: Tue, 25 Jun 2013 10:37:05 +0200 Message-ID: NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: multipart/signed; boundary="=-=-="; micalg=pgp-sha1; protocol="application/pgp-signature" X-Trace: ger.gmane.org 1372149532 15712 80.91.229.3 (25 Jun 2013 08:38:52 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Tue, 25 Jun 2013 08:38:52 +0000 (UTC) To: ding@gnus.org Original-X-From: ding-owner+M31656@lists.math.uh.edu Tue Jun 25 10:38:54 2013 Return-path: Envelope-to: ding-account@gmane.org Original-Received: from util0.math.uh.edu ([129.7.128.18]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1UrOm4-0004h4-Oz for ding-account@gmane.org; Tue, 25 Jun 2013 10:38:53 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by util0.math.uh.edu with smtp (Exim 4.63) (envelope-from ) id 1UrOku-0006zC-Tw; Tue, 25 Jun 2013 03:37:41 -0500 Original-Received: from mx1.math.uh.edu ([129.7.128.32]) by util0.math.uh.edu with esmtps (TLSv1:AES256-SHA:256) (Exim 4.63) (envelope-from ) id 1UrOkr-0006ys-EY for ding@lists.math.uh.edu; Tue, 25 Jun 2013 03:37:37 -0500 Original-Received: from quimby.gnus.org ([80.91.231.51]) by mx1.math.uh.edu with esmtps (TLSv1:AES256-SHA:256) (Exim 4.76) (envelope-from ) id 1UrOkk-0003EK-Q3 for ding@lists.math.uh.edu; Tue, 25 Jun 2013 03:37:37 -0500 Original-Received: from plane.gmane.org ([80.91.229.3]) by quimby.gnus.org with esmtp (Exim 4.72) (envelope-from ) id 1UrOki-0005il-S4 for ding@gnus.org; Tue, 25 Jun 2013 10:37:28 +0200 Original-Received: from list by plane.gmane.org with local (Exim 4.69) (envelope-from ) id 1UrOke-0003jE-Ij for ding@gnus.org; Tue, 25 Jun 2013 10:37:24 +0200 Original-Received: from arn78-1-88-186-171-7.fbx.proxad.net ([88.186.171.7]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Tue, 25 Jun 2013 10:37:24 +0200 Original-Received: from Rainer by arn78-1-88-186-171-7.fbx.proxad.net with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Tue, 25 Jun 2013 10:37:24 +0200 X-Injected-Via-Gmane: http://gmane.org/ Original-Lines: 453 Original-X-Complaints-To: usenet@ger.gmane.org X-Gmane-NNTP-Posting-Host: arn78-1-88-186-171-7.fbx.proxad.net User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.3 (darwin) Cancel-Lock: sha1:SksuVC4mmKyH+li4bdNg+qrzeM8= X-Spam-Score: -3.0 (---) List-ID: Precedence: bulk Xref: news.gmane.org gmane.emacs.gnus.general:83396 Archived-At: --=-=-= Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable Hi=20 I migrated from Linux to OS X and I am coping quite well on the emacs / gnus side. The only main thing which is still bothering me is that an html email, with K-e is not opened in the browser anymore. emacs / gnus asks in the mini-buffer about the MIME type, although it is displayed useing W3M correctly in emacs: ,---- | View as MIME type (default text/plain):=20 `---- Any ideas? I used K-e quite regularly. Thanks, Rainer =20 My gnus config is as follow: ,---- | * gnus (gnus.conf.el) | :PROPERTIES: | :tangle: ./gnus.conf.el | :END: | See [[http://www.emacswiki.org/emacs/GnusGmail#toc2]] | ** Load Gnus=20=20 | #+begin_src emacs-lisp | (require 'gnus) | #+end_src | ** COMMENT Start offlineimap before startup of gnus | #+begin_src emacs-lisp :tangle no | (require offlineimap) | (setq offlineimap-command "/usr/local/bin/offlineimap") | (add-hook 'gnus-before-startup-hook offlineimap) | #+end_src |=20 |=20 | ** Define news sources | *** Primary source - "news.gmane.org" (news.gmane.org) | #+begin_src emacs-lisp | (setq gnus-select-method=20 | '(nntp "news.gmane.org" | (nntp-open-connection-function nntp-open-tls-stream) | (nntp-port-number 563))) |=20=20=20 | ;; '(nnimap "gmail" | ;; (nnimap-address "imap.gmail.com") | ;; (nnimap-server-port 993) | ;; (nnimap-stream ssl) | ;; (nnimap-authinfo-file "~/.authinfo.gpg") | ;; (nnir-search-engine 'notmuch))) | #+end_src |=20 | *** Secondary source - "Maildir" (localhost imap) | #+begin_src emacs-lisp=20 | (add-to-list 'gnus-secondary-select-methods=20=20=20=20=20=20=20=20=20= =20 | ;; '(nnimap "localhost" | ;; (nnimap-stream network) | ;; (nnimap-address "localhost")x | ;; (nnimap-authinfo-file "~/.authinfo.gpg") | ;; (nnimap-authenticator login))) |=20=20=20 | '(nnimap "Maildir" | (nnimap-stream shell) | (nnimap-shell-program "/usr/local/Cellar/dovecot/= 2.2.2/libexec/dovecot/imap -o mail_location=3Dmaildir:$HOME/Maildir"))) | ;;(nnir-search-engine 'notmuch))) | #+end_src |=20 | ** Configure outgoing mail to use smtp.gmail.com | #+begin_src emacs-lisp | (setq starttls-gnutls-program "/usr/local/bin/gnutls-cli") | (setq starttls-use-gnutls t)=20 | (setq smtpmail-starttls-credentials '(("smtp.gmail.com" 587 nil nil)) | smtpmail-smtp-server "smtp.gmail.com" | smtpmail-default-smtp-server "smtp.gmail.com" | send-mail-function 'smtpmail-send-it | message-send-mail-function 'smtpmail-send-it | smtpmail-smtp-service 587 | smtpmail-auth-credentials '(("smtp.gmail.com" 587 "R.M.Krug@gmail.c= om" nil)) | smtpmail-debug-info t | smtpmail-debug-verb t | ) | #+end_src |=20 | ** Prioritize for text display | #+begin_src emacs-lisp | (setq mm-discouraged-alternatives | '("text/html" "text/richtext")) | (setq gnus-buttonized-mime-types | '("multipart/alternative" "multipart/signed") | mm-discouraged-alternatives | '("text/html" "image/.*")) | #+end_src |=20 |=20 | ** Set renderer for html email=20 | Set renderer for html mail to w3m in emacs | #+begin_src emacs-lisp | (setq mm-text-html-renderer 'w3m) | #+end_src |=20 | ** expiring default | *** nnmail-expiry-wait | Time until an as Expired marked email will actually be expired | #+begin_src emacs-lisp | (setq nnmail-expiry-wait 'immediate) | #+end_src | *** nnmail-expiry-target | Target of expired emails. | #+begin_src emacs-lisp | (setq nnmail-expiry-target 'nnmail-fancy-expiry-target | nnmail-fancy-expiry-targets | '(;;(to-from "boss" "nnfolder:Work") | ;;("subject" "IMPORTANT" "nnfolder:IMPORTANT.%Y.%b") | ;; ("from" ".*" "nnimap+Maildir:RMKrugGMAIL.[Gmail].Bin"))) | ("from" ".*" "nnimap+Maildir:Archives.%Y"))) | #+end_src |=20 | ** Set gnus-parameter | #+begin_src emacs-lisp | (setq gnus-parameters | '(=20=20=20=20=20=20=20=20 | (".*" | (gnus-use-scoring nil) | ;; (expiry-wait . immediate) | ;; (expiry-target "nnimap+Maildir:RMKrugGMAIL.[Gmail].Bin") | ;; (display . all) | (gcc-self . t) | ) | ("^gmane.*" | (gcc-self . "nnimap+Maildir:RMKrugGMAIL.[Gmail].Sent Mail")) | )) | #+end_src |=20 | ** Set gcc mail to read | #+begin_src emacs-lisp | (setq gnus-gcc-mark-as-read t) | #+end_src |=20 | ** Define a "large newsgroup" | Based on [[http://stackoverflow.com/questions/4982831/i-dont-want-to-expi= re-mail-in-gnus]] | #+begin_src emacs-lisp | (setq gnus-large-newsgroup 100) | #+end_src |=20 | ** Set thread gathering function | #+begin_src emacs-lisp | (setq-default gnus-summary-thread-gathering-function 'gnus-gather-threa= ds-by-references) | #+end_src |=20 | ** Customize group view | *** Replacing common prefixes of group names with spaces | This is based on [[http://www.emacswiki.org/emacs/GnusFormatting#toc8]] | Here=E2=80=99s a user-format-function that prints the group name, but if = the first part of it is the same as the above group name, it=E2=80=99ll rep= lace the common prefix with spaces. So instead of | #+begin_src emacs-lisp | (defvar gnus-user-format-function-g-prev "" "") | (defun empty-common-prefix (left right) | "Given `left' '(\"foo\" \"bar\" \"fie\") and `right' '(\"foo\" | \"bar\" \"fum\"), return '(\" \" \" \" \"fum\")." | (if (and (cdr right) ; always keep the last part of = right | (equal (car left) (car right))) | (cons (make-string (length (car left)) ? ) | (empty-common-prefix (cdr left) (cdr right))) | right)) | (defun gnus-user-format-function-g (arg) | "The full group name, but if it starts with a previously seen | prefix, empty that prefix." | (if (equal gnus-user-format-function-g-prev gnus-tmp-group) ; line-fo= rmat is updated on exiting the summary, making prev equal this | gnus-tmp-group | (let* ((prev (split-string-and-unquote gnus-user-format-function-g-= prev "\\.")) | (this (split-string-and-unquote gnus-tmp-group "\\."))) | (setq gnus-user-format-function-g-prev gnus-tmp-group) | (combine-and-quote-strings | (empty-common-prefix prev this) | ".")))) | (setq gnus-group-line-format "%M%S%p%P%5y:%B%(%ug%)\n") | #+end_src |=20 | ** Thread sort order | #+begin_src emacs-lisp | (setq gnus-thread-sort-functions | '( | gnus-thread-sort-by-most-recent-number | gnus-thread-sort-by-most-recent-date | )) | #+end_src |=20 | ** Define custom date format | Based on [[https://emacs.wordpress.com/2008/04/21/two-gnus-tricks/]] | #+begin_src emacs-lisp | (setq gnus-user-date-format-alist | '(((gnus-seconds-today) . "Today, %H:%M") | ((+ 86400 (gnus-seconds-today)) . "Yesterday, %H:%M") | (604800 . "%A %H:%M") ;;that's one week | ((gnus-seconds-month) . "%A %d") | ((gnus-seconds-year) . "%B %d") | (t . "%B %d '%y"))) ;;this one is used when no other does match | #+end_src |=20 |=20 | ** More attractive Summary View | From http://github.com/eschulte/emacs24-starter-kit/ | (There: Thanks to Dan Davison. see [[https://raw.github.com/eschulte/emac= s24-starter-kit/master/starter-kit-gnus.org]]) | See also http://groups.google.com/group/gnu.emacs.gnus/browse_thread/thre= ad/a673a74356e7141f | #+begin_src emacs-lisp | (when window-system | (setq gnus-sum-thread-tree-indent " ") | (setq gnus-sum-thread-tree-root "") ;; "=E2=97=8F ") | (setq gnus-sum-thread-tree-false-root "") ;; "=E2=97=AF ") | (setq gnus-sum-thread-tree-single-indent "") ;; "=E2=97=8E ") | (setq gnus-sum-thread-tree-vertical "=E2=94=82") | (setq gnus-sum-thread-tree-leaf-with-other "=E2=94=9C=E2=94=80=E2=96= =BA ") | (setq gnus-sum-thread-tree-single-leaf "=E2=95=B0=E2=94=80=E2=96= =BA ")) | (setq gnus-summary-line-format | (concat | "%U%R%z" | "=E2=94=82"=20 | "%17&user-date;" ;; date | "=E2=94=82" | " " | "%-20,20f" ;; name | " " | "=E2=94=82" | " " | "%B" | "%s\n")) |=20=20=20=20=20 | (setq gnus-summary-display-arrow t) | #+end_src |=20 | ** Configure Gnus buffer configutration for wide screens | #+begin_src emacs-lisp | (setq gnus-buffer-configuration | ;; '((group (horizontal 1.0 (group 1.0 point))) | ;; (summary (horizontal 1.0 (summary 0.6 point) (group 1.0= ))) | ;; (article (horizontal 1.0 (article 0.6) (summary 1.0 poi= nt))) | ;; (forward (horizontal 1.0 (message 0.6 point) (article 1= .0))) | ;; (message (horizontal 1.0 (message 0.6 point) (article 1= .0))) | ;; (reply (horizontal 1.0 (message 0.6 point) (article 1.0= ))) | ;; (reply-yank (horizontal 1.0 (message 0.6 point) (articl= e 1.0))))) | '((group (horizontal 1.0 (group 1.0 point))) | (summary (horizontal 1.0 (summary 1.0 point))) | (article | (cond | (gnus-use-trees | '(horizontal 1.0 (summary 0.25 point) (tree 0.25)(article 1.= 0))) | (t | '(horizontal 1.0 (summary 0.4 point) (article 1.0))))) | (server (horizontal 1.0 (server 1.0 point))) | (browse (horizontal 1.0 (browse 1.0 point))) | (message (horizontal 1.0 (message 1.0 point))) | (pick (horizontal 1.0 (article 1.0 point))) | (info (horizontal 1.0 (info 1.0 point))) | (summary-faq (horizontal 1.0 (summary 0.25) (faq 1.0 point))) | (only-article (horizontal 1.0 (article 1.0 point))) | (edit-article (horizontal 1.0 (article 1.0 point))) | (edit-form (horizontal 1.0 (group 0.5) (edit-form 1.0 point))) | (edit-score (horizontal 1.0 (summary 0.25) (edit-score 1.0 poin= t))) | (edit-server(horizontal 1.0(server 0.5) (edit-form 1.0 point))) | (post (horizontal 1.0 (post 1.0 point))) | (reply (horizontal 1.0(article 0.5) (message 1.0 point))) | (forward (horizontal 1.0 (message 1.0 point))) | (reply-yank (horizontal 1.0 (message 1.0 point))) | (mail-bounce (horizontal 1.0 (article 0.5) (message 1.0 point))) | (pipe (horizontal 1.0 (summary 0.25 point) ("*Shell Command Out= put*" 1.0))) | (bug (horizontal 1.0 (if gnus-bug-create-help-buffer '("*Gnus H= elp Bug*" 0.5)) ("*Gnus Bug*" 1.0 point))) | (score-trace (horizontal 1.0 (summary 0.5 point) ("*Score Trace= *" 1.0))) | (score-words (horizontal 1.0 (summary 0.5 point) ("*Score Words= *" 1.0))) | (split-trace(horizontal 1.0 (summary 0.5 point) ("*Split Trace*= " 1.0))) | (category (horizontal 1.0 (category 1.0))) | (compose-bounce (horizontal 1.0 (article 0.5) (message 1.0 poin= t))) | (display-term (horizontal 1.0 ("*display*" 1.0))) | (mml-preview (horizontal 1.0 (message 0.5) (mml-preview 1.0 poi= nt))))) | #+end_src |=20 |=20 | ** Always encrypt outgoing mails using easyPGP | From notmuch [[http://notmuchmail.org/emacstips/#index16h2]] | #+begin_src emacs-lisp | (add-hook 'message-setup-hook 'mml-secure-message-sign-pgpmime) | #+end_src | ** Bind offline-resync to o | #+begin_src emacs-lisp | (add-hook 'gnus-group-mode-hook | (lambda () (local-set-key "o" 'offlineimap-resync))) | #+end_src |=20 | ** Define default move target |=20 | #+begin_src emacs-lisp | (setq gnus-move-split-methods | '((".*" "nnimap+Maildir:RMKrugGMAIL.[Gmail].Bin"))) | #+end_src=20 |=20 | ** notmuch integration | *** Overwrite GG to start notmuch-search | from [[http://roland.entierement.nu/blog/2010/09/08/gnus-dovecot-offlinei= map-search-a-howto.html]] | #+begin_src emacs-lisp | (define-key gnus-group-mode-map "GG" 'notmuch-search) | #+end_src |=20 | *** In notmuch jump to gnus folder | from [[http://roland.entierement.nu/blog/2010/09/08/gnus-dovecot-offlinei= map-search-a-howto.html]]: | But seeing just the message that matches is not enough,=20 | sometimes we want the whole thread. Here's a snippet of=20 | Lisp for your .gnus, based on Tassilo Horn's configuration.=20 | Do a Notmuch search, enter one of the results, type C-c C-c,=20 | you'll get transported to the folder where that message was,=20 | with the context. Note this requires code from org-mode,=20 | so you might need to install that. |=20 | #+begin_src emacs-lisp | (add-hook 'gnus-group-mode-hook 'lld-notmuch-shortcut) |=20=20=20 | (defun lld-notmuch-shortcut () | (define-key gnus-group-mode-map "GG" 'notmuch-search) | ) |=20=20=20 | (defun lld-notmuch-file-to-group (file) | "Calculate the Gnus group name from the given file name. | " | (let ((group (file-name-directory (directory-file-name (file-name-dir= ectory file))))) | (setq group (replace-regexp-in-string ".*/Maildir/" "nnimap+Maildir= :" group)) | (setq group (replace-regexp-in-string "/$" "" group)) | (if (string-match ":$" group) | (concat group "INBOX") | (replace-regexp-in-string ":\\." ":" group)))) |=20=20=20 | (defun lld-notmuch-goto-message-in-gnus () | "Open a summary buffer containing the current notmuch | article." | (interactive) | (let ((group (lld-notmuch-file-to-group (notmuch-show-get-filename))) | (message-id (replace-regexp-in-string | "^id:" "" (notmuch-show-get-message-id)))) | (setq message-id (replace-regexp-in-string "\"" "" message-id)) | (if (and group message-id) | (progn=20 | (switch-to-buffer "*Group*") | (org-gnus-follow-link group message-id)) | (message "Couldn't get relevant infos for switching to Gnus.")))) |=20=20=20 | (define-key notmuch-show-mode-map (kbd "C-c C-c") 'lld-notmuch-goto-mes= sage-in-gnus) | #+end_src |=20 | ** kill buffer after succesfull sending of mail | See [[http://www.gnus.org/manual/gnus_399.html#SEC504]] | #+begin_src emacs-lisp | (setq message-kill-buffer-on-exit t) | #+end_src |=20 | ** Posting styles | See [[https://www.gnu.org/software/emacs/manual/html_node/gnus/Posting-St= yles.html]] for details. | #+begin_src emacs-lisp | (setq gnus-posting-styles | '((".*" | (signature-file "~/.signature") | (name "Rainer M Krug")) | ("gmane.*" | (signature-file "~/.signature.news")))) | #+end_src |=20 | ** Customizing Articles | *** hide citation | #+begin_src emacs-lisp | (setq gnus-cited-lines-visible 2) | #+end_src |=20 |=20 | ** Colour theming | **** add path to leuven-theme | #+begin_src emacs-lisp | (add-to-list 'custom-theme-load-path "~/.emacs.d/emacs-leuven-theme/") | #+end_src |=20 | **** Select colour theme | #+begin_src emacs-lisp | ;; dark background | ;; (load-theme 'cyberpunk t) | ;; (load-theme 'wombat txs)=20=20 |=20 | ;; light background | ;; (load-theme 'twilight-bright t) | (load-theme 'anti-zenburn t) | ;; (load-theme 'solarized-light t) | ;; (load-theme 'occidental t)=20=20 | ;; (load-theme 'leuven t)=20=20 | #+end_src `---- =2D-=20 Rainer M. Krug email: RMKruggmailcom --=-=-= Content-Type: application/pgp-signature -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.4.13 (Darwin) iQEcBAEBAgAGBQJRyVaxAAoJENvXNx4PUvmCtpMH/0kIhVy7yvXF8qrWE5TJCX+/ /D8YcDjTo0WcLqJ4HMcZyuxTS/xvXerOW2h3lbprG3KEIFZ1F9bLXNGcyPInAzTN VD3uLfZbZjUkurvyIvZcEIloOHE4Mi0QJQApKyn/JzXS1D5Uycy1BCvSe5hZdMCl mJu+ZqoBOUM4tLXYI3bfBOIgVykqTF2geYLJH9Cg9U0FgB0ENzjHwj626SQWR7Yf XRtXEYYWTau59cie7y+uk51omdbNubtwfif78Ul7IkLwUYsJHd3JF8rkYgSEM1ly UrrqlebBF9D4GM3x5+y98u1kEfoiKmFXkm6iPea7ddfNFmhD3LVqycE5twv0YmU= =dx1B -----END PGP SIGNATURE----- --=-=-=--