From mboxrd@z Thu Jan 1 00:00:00 1970 From: =?utf-8?Q?S=C3=A9bastien_Vauban?= Subject: Re: Enhancing the Org/Gnus experience Date: Thu, 04 Nov 2010 14:11:04 +0100 Message-ID: <80sjzh9qtz.fsf@mundaneum.com> References: <80k4lj78ui.fsf@mundaneum.com> <87sk07fl3s.fsf@gmail.com> <80k4lf337a.fsf@mundaneum.com> <80vd4z9q2f.fsf@mundaneum.com> <874oc2z2uv.fsf@gmail.com> <8062wdcp6y.fsf@mundaneum.com> <877hgtfhaq.fsf@ucl.ac.uk> Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable Return-path: List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org-mXXj517/zsQ@public.gmane.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org-mXXj517/zsQ@public.gmane.org To: emacs-orgmode-mXXj517/zsQ@public.gmane.org Eric, Eric S Fraga wrote: > S=C3=A9bastien Vauban writes: >> Hi Eric (and Dan), >> "Eric Schulte" wrote: >>> This is really great. I finally folded it into my gnus setup, and while >>> it looks great when it works >> >> Great you love it. I'm *VERY* pleased. Moreover, having no reaction on t= hat >> (and on some other posts[1]), I thought I'd been kill-filed=C2=A0;-)[2] > > S=C3=A9bastien et al., > > I have also included the code in my gnus configuration but I am not sure > if it is actually doing anything or not. Well, actually, I think it > *is* doing something but I haven't actually seen any fontification etc. > On the other hand, I am still getting to grips with gnus article display > functionality so I've probably done something wrong... > > If there are any obvious things I should be looking at, please let me kno= w. Not that I know of. For the sake of completeness, this is the part I have about my viewing customizations. Maybe take this into your .gnus and see what it gives? #+begin_src emacs-lisp ;;*** 1.2 (info "(emacs-mime)Non-MIME") ;; regexp of Emacs sources groups (setq mm-uu-emacs-sources-regexp "emacs") ;; regexp matching diff groups (setq mm-uu-diff-groups-regexp "\\(diff\\|commit\\|cvs\\|bug\\|devel\\|reviews\\|mc\\|orgmode\= \)") ;; regexp matching TeX groups (setq mm-uu-tex-groups-regexp ".*") ;; 2010-10-21 was "tex" (eval-after-load "mm-uu" '(progn ;; correctly fontify Org-mode attachments (add-to-list 'mailcap-mime-extensions '(".org" . "text/org")) (add-to-list 'mm-automatic-display "text/org") (add-to-list 'mm-inline-media-tests '("text/org" my/display-org-inline (lambda (el) t))) (defun my/display-org-inline (handle) (condition-case nil (mm-display-inline-fontify handle 'org-mode) (error (insert (with-temp-buffer (mm-insert-part handle) (buffer-string)) "\n")))) ;; update `org-src-lang-modes' to provide some leeway for posters (add-to-list 'org-src-lang-modes '("elisp" . emacs-lisp)) (add-to-list 'org-src-lang-modes '("emacs_lisp" . emacs-lisp)) ;; fontify code blocks in the text of messages (defun my/mm-org-babel-src-extract () (mm-make-handle (mm-uu-copy-to-buffer start-point end-point) '("text/org"))) (add-to-list 'mm-uu-type-alist '(org-babel-block "^[ \t]*#\\+begin_" "^[ \t]*#\\+end_" my/mm-org-babel-src-extract nil)) (mm-uu-configure))) ;;*** 1.5 (info "(emacs-mime)Display Customization") ;; You can view "text/html" parts of the current article with a WWW ;; browser by pressing `K H' (`gnus-article-browse-html-article') ;; ;; MIME type that will be displayed externally automatically ;; (add-to-list 'mm-automatic-external-display "text/html") ;; do not treat inline images as real attachments (display them, ;; instead) (add-to-list 'mm-attachment-override-types "image/.*") ; "text/x-vcard"... ;; don't render HTML automatically *when plain text alternative is ;; available* (eval-after-load "mm-decode" '(progn (add-to-list 'mm-discouraged-alternatives "text/html") (add-to-list 'mm-discouraged-alternatives "text/richtext") (add-to-list 'mm-discouraged-alternatives "text/enriched") (add-to-list 'mm-discouraged-alternatives "multipart/related"))) ;; all images fit in the buffer (setq mm-inline-large-images t) ;; ;; always show HTML mails as attachments (even if they can be ;; ;; displayed) use `browse-url-browser-function' (firefox) to render ;; ;; HTML mails ;; (push "text/html" mm-inline-override-types) ;; use `w3m' browser (if installed) to render HTML-only mails (setq mm-text-html-renderer (cond ((executable-find "w3m") 'w3m) (t 'html2text))) ;; Emacs built-in (eval-after-load "w3m" '(progn ;; (setq browse-url-browser-function 'w3m-browse-url) (setq mm-inline-text-html-renderer 'mm-inline-text-html-render-with-w3m) (setq gnus-article-wash-function 'gnus-article-wash-html-with-w3m) ;; Whenever you try to browse URLs found in articles, Gnus ;; (`emacs-w3m', in fact) complains that "This link is considered ;; unsafe...". To turn it off, frob the variables ;; `w3m-safe-url-regexp' and `mm-w3m-safe-url-regexp'. )) ;; allow retrieving images in HTML contents with the tags (setq mm-inline-text-html-with-images t) ;; Remove HTML tags from a buffer (defun my/wash-ugly-html () "Remove ugly HTML tags." (interactive) (toggle-read-only -1) (save-excursion (goto-char (point-min)) (while (re-search-forward "<[^#][^<@>]*>" nil t) (replace-match "" nil nil)) (goto-char (point-min)) (while (re-search-forward ">" nil t) (replace-match ">" nil nil)) (goto-char (point-min)) (while (re-search-forward "<" nil t) (replace-match "<" nil nil)) ;; FIXME Do not simply remove accents like it does now (goto-char (point-min)) (while (re-search-forward "&[^;]*;" nil t) (replace-match "" nil nil)))) #+end_src >>> I was getting frequent errors throw by the org-mode fontification engine >>> recursing too deeply. I've changed it to the following which augments w= hat >>> you sent with some simple error handling. >> >> I _never_ observed problems in my case. Anyway, adding such a protection= is >> the code is a great addition. Thanks! >> >> I've just singed the FSF papers. Once received by the FSF, I'll >> propagate your update onto the Gnus newsgroup. > > Please post here as well. I do follow the gnus newsgroup but less > frequently. I'll do. For sure! >> When that will be done, we will have a real Org experience when >> reading mails with Gnus. I love all this tools. > > Yes, there's great potential for the gnus+org combination to give a > really nice email experience! I'm impatient to have the above things added... Best regards, Seb --=20 S=C3=A9bastien Vauban _______________________________________________ Emacs-orgmode mailing list Please use `Reply All' to send replies to the list. Emacs-orgmode-mXXj517/zsQ@public.gmane.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode