Making message/rfc822 boundaries visible

[Robert Bihlmeyer <robbe@orcus.priv.at>]

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

Hi,

I finally decided to stop whining, and provide some code. The
following, when put into your .gnus file, will render brackets around
message/rfc822 parts, so you can see where an inlined message begins
and ends. Nesting works out nice, too. Tested under XEmacs 21.1, but
IIRC markers are also provided by FSF Emacsen.


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: Type: text/x-emacs-lisp, Size: 386 bytes --]

(setf (cadr (assoc "message/rfc822" mm-inline-media-tests))
      'mm-inline-message-bracketed)

(defun mm-inline-message-bracketed (handle)
  (insert ",---\n")
  (let ((end (point-marker)))
    (set-marker-insertion-type end t)
    (mm-inline-message handle)
    (while (< (point) end)
      (insert "| ")
      (beginning-of-line 2))
    (move-marker end nil)
    (insert "`---\n")))

[-- Attachment #3: Type: text/plain, Size: 237 bytes --]


Adapting this to other types which have nonobviouse boundaries is
easy.

        Robbe

-- 
Robert Bihlmeyer       reads: Deutsch, English, MIME, Latin-1, NO SPAM!
<robbe@orcus.priv.at>    <http://stud2.tuwien.ac.at/~e9426626/sig.html>