Gnus development mailing list
 help / color / mirror / Atom feed
* Spook MIME Boundaries
@ 2004-08-19 18:09 Greg Stark
  2004-08-19 20:44 ` Florian Weimer
  0 siblings, 1 reply; 5+ messages in thread
From: Greg Stark @ 2004-08-19 18:09 UTC (permalink / raw)



I've been using this for a while, it seems like something others would find
amusing too. It would be neat if this were the default or at least a standard
option, the more widespread it is the more effective it is after all.

(defun spook-make-boundary (&optional count)
  (save-excursion
    (set-buffer (generate-new-buffer " *spook tmp*"))
    (setq buffer-disable-undo t)
    (spook)
    (subst-char-in-region (point-min) (point-max) ?\n ?= t)
    (subst-char-in-region (point-min) (point-max) ?   ?- t)
    (prog1 
	(buffer-substring (point-min) (min 70 (point-max)))
      (kill-buffer (current-buffer)))))
(setq mml-boundary-function 'spook-make-boundary)


-- 
greg




^ permalink raw reply	[flat|nested] 5+ messages in thread

end of thread, other threads:[~2004-08-20  0:01 UTC | newest]

Thread overview: 5+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2004-08-19 18:09 Spook MIME Boundaries Greg Stark
2004-08-19 20:44 ` Florian Weimer
2004-08-19 21:35   ` Greg Stark
2004-08-19 21:44     ` Greg Stark
2004-08-20  0:01     ` Florian Weimer

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).