Re: [Orgmode] Re: Enhancing the Org/Gnus experience

[Eric S Fraga]

Sébastian & Eric,

Just to follow up on this... (today is my "don't get any real work done
and spend some time on org instead" day, I guess ;-)

I'm starting to understand the mm-uu-* codes.  I've added some
=(message...)= entries into the code you have written for fontifying org
blocks in gnus messages:

#+begin_src emacs-lisp
(defun my-display-org-inline (handle)
       (condition-case nil
           (let (ret)
             (message "about to invoke mm-display-inline with handle=%s\n" 
handle)
             (setq ret (mm-display-inline-fontify handle 'org-mode))
             (message "mm-display-inline-fontify returned %s\n" ret)
             ret
             )
         (error
          (progn
            (message "Got an error in my-display-org-inline\n")
            (insert (with-temp-buffer (mm-insert-part handle)
                                    (buffer-string))
                  "\n")))))
#+end_src

The codes appear to be invoked when required.  E.g. from *Messages*:

: about to invoke mm-display-inline with handle=( *mm-uu*<2> (text/org) nil nil 
nil nil nil nil)

where the buffer =*mm-uu*<2>= actually has the right contents (an emacs
lisp source block):

#+begin_src emacs-lisp
;;*** 1.2 (info "(emacs-mime)Non-MIME")

      ;; regexp of Emacs sources groups
      (setq mm-uu-emacs-sources-regexp "emacs")
[...]
            (replace-match "" nil nil))))
#+end_src

An error does not appear to be thrown by this function.  However, the
string returned by mm-display-inline-fontify is strange:

: mm-display-inline-fontify returned 
: (lambda nil (let ((inhibit-read-only t)) (delete-region #<marker at 5064 in 
*Article*> #<marker at 9862 in *Article*>)))

(I've broken the line after "returned".) Could there be some interaction
with, say, gnus article /washing/ treatments?  I don't know what that
function should be returning but I am concerned about the
=delete-region= directive.  Could somebody maybe show me what I should
be getting for the source block to be fontified correctly?

The marker positions appear correct for the source block, by the way.

Again, thanks for your time and effort!

-- 
: Eric S Fraga (GnuPG: 0xC89193D8FFFCF67D) in Emacs 23.2.1
: using Org-mode version 7.02trans (release_7.3.18.g3818)