Thorsten Jolitz <tjol...@gmail.com> writes:
> Nick Dokos <ndo...@gmail.com> writes:
>
>> Nick Dokos <ndo...@gmail.com> writes:
>>
>>> Sebastien Vauban <sva-n...@mygooglest.com>
>>> writes:
>>>
>>>> Nick Dokos wrote:
>>>>> Thorsten Jolitz <tjol...@gmail.com> writes:
>>>>>> Thorsten Jolitz <tjol...@gmail.com> writes:
>>>>>>
>>>>>> ...
>>>>>> Am I the only one seeing this? Bug in gnus/message mode?
>>>>>
>>>>> I see empty lines between the blocks in gnus.
>>>>
>>>> I don't see the empty lines, like Thorsten.
>>>>
>>>
>>> ... and on a different machine, I don't see them either.
>>> Now I have to figure out what's different between them.
>>>
>>
>> One machine is running Gnus v. 5.13: that one smooshes the code
>> blocks together.
>>
>> The other is running Ma Gnus v. 0.12: that one leaves empty
>> lines between blocks.
>
> Maybe they switched to the new parser between versions, that parses a
> src-block with :post-blank's, but does not take them into account when
> interpreting?
>
No clue.
> ,----[ C-h f mm-display-inline-fontify RET ]
> | mm-display-inline-fontify is a compiled Lisp function in `mm-view.el'.
> |
> | (mm-display-inline-fontify HANDLE &optional MODE)
> |
> | Insert HANDLE inline fontifying with MODE.
> | If MODE is not set, try to find mode automatically.
> `----
>
> is responsable here, and if we would find the place where 'handle' is
> parsed (I couldn't in reasonable time) we would probably know what is
> the problem ('handle' is the src-block in this case, 'mode' is 'org').
The stack trace on Ma Gnus v. 0.12 (and probably on 5.13 as well) looks like
this:
mm-display-inline-fontify((#<buffer *mm-uu*-975097> ("text/x-org") nil nil
nil nil nil nil) org-mode)
mm-display-org-inline((#<buffer *mm-uu*-975097> ("text/x-org") nil nil nil
nil nil nil))
mm-display-inline((#<buffer *mm-uu*-975097> ("text/x-org") nil nil nil nil
nil nil))
mm-display-part((#<buffer *mm-uu*-975097> ("text/x-org") nil nil nil nil nil
nil) t)
byte-code("..." [ignored type gnus-summary-buffer buffer gnus-inhibit-images
handle string-match throw nil buffer-live-p get-buffer "\\`image/"
mm-inline-override-p 4 "inline" mm-attachment-override-p mm-automatic-display-p
mm-inlinable-p mm-inlined-p mm-automatic-external-display-p t split-string "/"
"text" rassq "message" insert-char 10 2 0 1 gnus-unbuttonized-mime-type-p
gnus-insert-mime-button (set-buffer gnus-summary-buffer) ((error))
derived-mode-p gnus-article-mode mm-display-part mm-display-inline
gnus-article-insert-newline "\n" -1 put-text-property gnus-undeletable
gnus-treat-article "application/pgp-signature" not-attachment display text
gnus-article-mime-handle-alist ...] 6)
gnus-mime-display-single((#<buffer *mm-uu*-975097> ("text/x-org") nil nil
nil nil nil nil))
gnus-mime-display-part((#<buffer *mm-uu*-975097> ("text/x-org") nil nil nil
nil nil nil))
mapcar(gnus-mime-display-part ((#<buffer *mm-uu*> ("text/plain" (charset .
gnus-decoded)) nil (lambda nil (let ((inhibit-read-only t)) (delete-region
#<marker (moves after insertion) at 3806 in *Article gmane.emacs.orgmode*>
#<marker at 4171 in *Article gmane.emacs.orgmode*>))) nil nil nil nil)
(#<buffer *mm-uu*-161616> ("text/x-org") nil (lambda nil (let
((inhibit-read-only t)) (delete-region #<marker (moves after insertion) at 4172
in *Article gmane.emacs.orgmode*> #<marker at 4210 in *Article
gmane.emacs.orgmode*>))) nil nil nil nil) (#<buffer *mm-uu*-975097>
("text/x-org") nil nil nil nil nil nil) (#<buffer *mm-uu*-44672>
("text/x-org") nil nil nil nil nil nil) (#<buffer *mm-uu*-414536>
("text/x-org") nil nil nil nil nil nil) (#<buffer *mm-uu*-4102> ("text/plain"
(charset . gnus-decoded)) nil nil nil nil nil nil)))
gnus-mime-display-mixed(((#<buffer *mm-uu*> ("text/plain" (charset .
gnus-decoded)) nil (lambda nil (let ((inhibit-read-only t)) (delete-region
#<marker (moves after insertion) at 3806 in *Article gmane.emacs.orgmode*>
#<marker at 4171 in *Article gmane.emacs.orgmode*>))) nil nil nil nil)
(#<buffer *mm-uu*-161616> ("text/x-org") nil (lambda nil (let
((inhibit-read-only t)) (delete-region #<marker (moves after insertion) at 4172
in *Article gmane.emacs.orgmode*> #<marker at 4210 in *Article
gmane.emacs.orgmode*>))) nil nil nil nil) (#<buffer *mm-uu*-975097>
("text/x-org") nil nil nil nil nil nil) (#<buffer *mm-uu*-44672>
("text/x-org") nil nil nil nil nil nil) (#<buffer *mm-uu*-414536>
("text/x-org") nil nil nil nil nil nil) (#<buffer *mm-uu*-4102> ("text/plain"
(charset . gnus-decoded)) nil nil nil nil nil nil)))
gnus-mime-display-part(("multipart/mixed" (#<buffer *mm-uu*> ("text/plain"
(charset . gnus-decoded)) nil (lambda nil (let ((inhibit-read-only t))
(delete-region #<marker (moves after insertion) at 3806 in *Article
gmane.emacs.orgmode*> #<marker at 4171 in *Article gmane.emacs.orgmode*>))) nil
nil nil nil) (#<buffer *mm-uu*-161616> ("text/x-org") nil (lambda nil (let
((inhibit-read-only t)) (delete-region #<marker (moves after insertion) at 4172
in *Article gmane.emacs.orgmode*> #<marker at 4210 in *Article
gmane.emacs.orgmode*>))) nil nil nil nil) (#<buffer *mm-uu*-975097>
("text/x-org") nil nil nil nil nil nil) (#<buffer *mm-uu*-44672>
("text/x-org") nil nil nil nil nil nil) (#<buffer *mm-uu*-414536>
("text/x-org") nil nil nil nil nil nil) (#<buffer *mm-uu*-4102> ("text/plain"
(charset . gnus-decoded)) nil nil nil nil nil nil)))
gnus-display-mime()
gnus-article-prepare-display()
gnus-article-prepare(89997 nil)
gnus-summary-display-article(89997)
gnus-summary-next-page(nil)
funcall-interactively(gnus-summary-next-page nil)
call-interactively(gnus-summary-next-page nil nil)
command-execute(gnus-summary-next-page)
The mm-display-inline-fontify call inserts "#+begin_foo...\n#+end_foo\n"
and (I won't swear to this but I think it's right) somebody on the way
*up* the stack adds an extra newline (maybe gnus-mime-display-single - the
others seem too generic and/or too simple to do it).
--
Nick
