K-e does not open html in browser anymore

K-e does not open html in browser anymore

[Rainer M Krug]

[-- Attachment #1: Type: text/plain, Size: 15659 bytes --]

Hi 

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): 
`----

Any ideas? I used K-e quite regularly.

Thanks,

Rainer
 

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  
| #+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
| 
| 
| ** Define news sources
| *** Primary source - "news.gmane.org" (news.gmane.org)
| #+begin_src emacs-lisp
|   (setq gnus-select-method 
|         '(nntp "news.gmane.org"
|                (nntp-open-connection-function nntp-open-tls-stream)
|                (nntp-port-number 563)))
|   
|   ;;              '(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
| 
| *** Secondary source - "Maildir" (localhost imap)
| #+begin_src emacs-lisp 
|   (add-to-list 'gnus-secondary-select-methods          
|                ;; '(nnimap "localhost"
|                ;;       (nnimap-stream network)
|                ;;       (nnimap-address "localhost")x
|                ;;       (nnimap-authinfo-file "~/.authinfo.gpg")
|                ;;       (nnimap-authenticator login)))
|   
|                '(nnimap "Maildir"
|                         (nnimap-stream shell)
|                         (nnimap-shell-program "/usr/local/Cellar/dovecot/2.2.2/libexec/dovecot/imap -o mail_location=maildir:$HOME/Maildir")))
|                         ;;(nnir-search-engine 'notmuch)))
| #+end_src
| 
| ** 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) 
| (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.com" nil))
|       smtpmail-debug-info t
|       smtpmail-debug-verb t
|       )
| #+end_src
| 
| ** 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
| 
| 
| ** Set renderer for html email 
| Set renderer for html mail to w3m in emacs
| #+begin_src emacs-lisp
|   (setq mm-text-html-renderer 'w3m)
| #+end_src
| 
| ** 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
| 
| ** Set gnus-parameter
| #+begin_src emacs-lisp
|   (setq gnus-parameters
|         '(        
|           (".*"
|            (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
| 
| ** Set gcc mail to read
| #+begin_src emacs-lisp
|   (setq gnus-gcc-mark-as-read t)
| #+end_src
| 
| ** Define a "large newsgroup"
| Based on [[http://stackoverflow.com/questions/4982831/i-dont-want-to-expire-mail-in-gnus]]
| #+begin_src emacs-lisp
|   (setq gnus-large-newsgroup 100)
| #+end_src
| 
| ** Set thread gathering function
| #+begin_src emacs-lisp
|   (setq-default gnus-summary-thread-gathering-function 'gnus-gather-threads-by-references)
| #+end_src
| 
| ** Customize group view
| *** Replacing common prefixes of group names with spaces
| This is based on [[http://www.emacswiki.org/emacs/GnusFormatting#toc8]]
| Here’s 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’ll replace 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-format 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
| 
| ** 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
| 
| ** 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
| 
| 
| ** More attractive Summary View
| From http://github.com/eschulte/emacs24-starter-kit/
| (There: Thanks to Dan Davison. see [[https://raw.github.com/eschulte/emacs24-starter-kit/master/starter-kit-gnus.org]])
| See also http://groups.google.com/group/gnu.emacs.gnus/browse_thread/thread/a673a74356e7141f
| #+begin_src emacs-lisp
|   (when window-system
|     (setq gnus-sum-thread-tree-indent "  ")
|     (setq gnus-sum-thread-tree-root "") ;; "● ")
|     (setq gnus-sum-thread-tree-false-root "") ;; "◯ ")
|     (setq gnus-sum-thread-tree-single-indent "") ;; "◎ ")
|     (setq gnus-sum-thread-tree-vertical        "│")
|     (setq gnus-sum-thread-tree-leaf-with-other "├─► ")
|     (setq gnus-sum-thread-tree-single-leaf     "╰─► "))
|   (setq gnus-summary-line-format
|         (concat
|          "%U%R%z"
|          "│" 
|          "%17&user-date;"  ;; date
|          "│"
|          "  "
|          "%-20,20f"               ;; name
|          "  "
|          "│"
|          " "
|          "%B"
|          "%s\n"))
|     
|   (setq gnus-summary-display-arrow t)
| #+end_src
| 
| ** 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 point)))
|         ;;        (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) (article 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 point)))
|           (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 Output*" 1.0)))
|           (bug (horizontal 1.0 (if gnus-bug-create-help-buffer '("*Gnus Help 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 point)))
|           (display-term (horizontal 1.0 ("*display*" 1.0)))
|           (mml-preview (horizontal 1.0 (message 0.5) (mml-preview 1.0 point)))))
| #+end_src
| 
| 
| ** 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
| 
| ** Define default move target
| 
| #+begin_src emacs-lisp
|   (setq gnus-move-split-methods
|         '((".*" "nnimap+Maildir:RMKrugGMAIL.[Gmail].Bin")))
| #+end_src 
| 
| ** notmuch integration
| *** Overwrite GG to start notmuch-search
| from [[http://roland.entierement.nu/blog/2010/09/08/gnus-dovecot-offlineimap-search-a-howto.html]]
| #+begin_src emacs-lisp
|   (define-key gnus-group-mode-map "GG" 'notmuch-search)
| #+end_src
| 
| *** In notmuch jump to gnus folder
| from [[http://roland.entierement.nu/blog/2010/09/08/gnus-dovecot-offlineimap-search-a-howto.html]]:
|   But seeing just the message that matches is not enough, 
|   sometimes we want the whole thread. Here's a snippet of 
|   Lisp for your .gnus, based on Tassilo Horn's configuration. 
|   Do a Notmuch search, enter one of the results, type C-c C-c, 
|   you'll get transported to the folder where that message was, 
|   with the context. Note this requires code from org-mode, 
|   so you might need to install that.
| 
| #+begin_src emacs-lisp
|   (add-hook 'gnus-group-mode-hook 'lld-notmuch-shortcut)
|   
|   (defun lld-notmuch-shortcut ()
|     (define-key gnus-group-mode-map "GG" 'notmuch-search)
|     )
|   
|   (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-directory 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))))
|   
|   (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 
|       (switch-to-buffer "*Group*")
|       (org-gnus-follow-link group message-id))
|         (message "Couldn't get relevant infos for switching to Gnus."))))
|   
|   (define-key notmuch-show-mode-map (kbd "C-c C-c") 'lld-notmuch-goto-message-in-gnus)
| #+end_src
| 
| ** 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
| 
| ** Posting styles
| See [[https://www.gnu.org/software/emacs/manual/html_node/gnus/Posting-Styles.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
| 
| ** Customizing Articles
| *** hide citation
| #+begin_src emacs-lisp
|   (setq gnus-cited-lines-visible 2)
| #+end_src
| 
| 
| ** 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
| 
| **** Select colour theme
| #+begin_src emacs-lisp
|   ;; dark background
|   ;; (load-theme 'cyberpunk t)
|   ;; (load-theme 'wombat txs)  
| 
|   ;; light background
|   ;; (load-theme 'twilight-bright t)
|   (load-theme 'anti-zenburn t)
|   ;; (load-theme 'solarized-light t)
|   ;; (load-theme 'occidental t)  
|   ;; (load-theme 'leuven t)  
| #+end_src
`----



-- 
Rainer M. Krug

email: RMKrug<at>gmail<dot>com

[-- Attachment #2: Type: application/pgp-signature, Size: 486 bytes --]

Re: K-e does not open html in browser anymore

[Erik Colson]

Rainer M Krug <Rainer@krugs.de> writes:

> Hi 
>
> 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:

On my OSX box it works with K H

  K H runs the command gnus-article-browse-html-article

best
--
erik

Re: K-e does not open html in browser anymore

[Rainer M Krug]

[-- Attachment #1: Type: text/plain, Size: 795 bytes --]


Erik Colson <eco@ecocode.net> writes:

> Rainer M Krug <Rainer@krugs.de> writes:
>
>> Hi 
>>
>> 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:
>
> On my OSX box it works with K H
>
>   K H runs the command gnus-article-browse-html-article

Thanks - that works.

But why does K-e not work anymore?

And: can I disable the question about deleting the temporary files
afterwards?

Thanks,

Rainer
 
>
> best
> --
> erik
>
>


-- 
Rainer M. Krug

email: RMKrug<at>gmail<dot>com

[-- Attachment #2: Type: application/pgp-signature, Size: 486 bytes --]

Re: K-e does not open html in browser anymore

[Erik Colson]

Rainer M Krug <Rainer@krugs.de> writes:

> But why does K-e not work anymore?

  K e runs the command gnus-article-view-part-externally

That is a more global command.. gnus-article-browse-html-article
specifically gets a html-part if it exists.

> And: can I disable the question about deleting the temporary files
> afterwards?

don't know.. No time to search neither, but if you find I'll be happy to
know the solution ;)

best
-- 
erik

Re: K-e does not open html in browser anymore

[Tassilo Horn]

Erik Colson <eco@ecocode.net> writes:

Hi!

>> And: can I disable the question about deleting the temporary files
>> afterwards?
>
> don't know.. No time to search neither, but if you find I'll be happy
> to know the solution ;)

,----
| gnus-article-browse-delete-temp is a variable defined in `gnus-art.el'.
| Its value is ask
| 
| Documentation:
| What to do with temporary files from `gnus-article-browse-html-parts'.
| If nil, don't delete temporary files.  If it is t, delete them on
| exit from the summary buffer.  If it is the symbol `file', query
| on each file, if it is `ask' ask once when exiting from the
| summary buffer.
| 
| You can customize this variable.
| 
| This variable was introduced, or its default value was changed, in
| version 23.1 of Emacs.
| 
| [back]
`----

Bye,
Tassilo

Re: K-e does not open html in browser anymore

[Rainer M Krug]

[-- Attachment #1: Type: text/plain, Size: 1085 bytes --]


Erik Colson <eco@ecocode.net> writes:

> Rainer M Krug <Rainer@krugs.de> writes:
>
>> But why does K-e not work anymore?
>
>   K e runs the command gnus-article-view-part-externally
>
> That is a more global command.. gnus-article-browse-html-article
> specifically gets a html-part if it exists.

So gnus-article-view-part-externally seems to overlook the html part,
which gnus-article-browse-html-article doesn't.

>
>> And: can I disable the question about deleting the temporary files
>> afterwards?
>
> don't know.. No time to search neither, but if you find I'll be happy to
> know the solution ;)

I will definitely do.

Cheers,

Rainer

>
> best

-- 
Rainer M. Krug, PhD (Conservation Ecology, SUN), MSc (Conservation Biology, UCT), Dipl. Phys. (Germany)

Centre of Excellence for Invasion Biology
Stellenbosch University
South Africa

Tel :       +33 - (0)9 53 10 27 44
Cell:       +33 - (0)6 85 62 59 98
Fax :       +33 - (0)9 58 10 27 44

Fax (D):    +49 - (0)3 21 21 25 22 44

email:      Rainer@krugs.de

Skype:      RMkrug

[-- Attachment #2: Type: application/pgp-signature, Size: 486 bytes --]

Re: K-e does not open html in browser anymore

[Rainer M Krug]

[-- Attachment #1: Type: text/plain, Size: 1054 bytes --]


Tassilo Horn <tsdh@gnu.org> writes:

> Erik Colson <eco@ecocode.net> writes:
>
> Hi!
>
>>> And: can I disable the question about deleting the temporary files
>>> afterwards?
>>
>> don't know.. No time to search neither, but if you find I'll be happy
>> to know the solution ;)
>
> ,----
> | gnus-article-browse-delete-temp is a variable defined in `gnus-art.el'.
> | Its value is ask
> | 
> | Documentation:
> | What to do with temporary files from `gnus-article-browse-html-parts'.
> | If nil, don't delete temporary files.  If it is t, delete them on
> | exit from the summary buffer.  If it is the symbol `file', query
> | on each file, if it is `ask' ask once when exiting from the
> | summary buffer.
> | 
> | You can customize this variable.
> | 
> | This variable was introduced, or its default value was changed, in
> | version 23.1 of Emacs.
> | 
> | [back]
> `----

Incorporated and works perfectly.

Thanks,

Rainer

>
> Bye,
> Tassilo
>
>


-- 
Rainer M. Krug

email: RMKrug<at>gmail<dot>com

[-- Attachment #2: Type: application/pgp-signature, Size: 486 bytes --]