From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/24636
Path: main.gmane.org!not-for-mail
From: Greg Stark <gsstark@mit.edu>
Newsgroups: gmane.emacs.gnus.general
Subject: Spook mime for Gnus
Date: 08 Aug 1999 00:21:16 -0400
Organization: People's Front Against MWM
Sender: owner-ding@hpc.uh.edu
Message-ID: <87yafm9a2r.fsf@x2-312.mtl.Generation.NET>
NNTP-Posting-Host: coloc-standby.netfonds.no
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: main.gmane.org 1035162166 9745 80.91.224.250 (21 Oct 2002 01:02:46 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Mon, 21 Oct 2002 01:02:46 +0000 (UTC)
Return-Path: <owner-ding@hpc.uh.edu>
Original-Received: from farabi.math.uh.edu (farabi.math.uh.edu [129.7.128.57])
	by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id AAA17478
	for <jason@mailhost.sclp.com>; Sun, 8 Aug 1999 00:22:10 -0400 (EDT)
Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5])
	by farabi.math.uh.edu (8.9.3/8.9.3) with ESMTP id XAB22992;
	Sat, 7 Aug 1999 23:21:50 -0500 (CDT)
Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Sat, 07 Aug 1999 23:22:44 -0500 (CDT)
Original-Received: from sclp3.sclp.com (root@sclp3.sclp.com [204.252.123.139])
	by sina.hpc.uh.edu (8.9.3/8.9.3) with ESMTP id XAA26017
	for <ding@hpc.uh.edu>; Sat, 7 Aug 1999 23:22:32 -0500 (CDT)
Original-Received: from sparkle.Generation.NET (sparkle.Generation.NET [205.205.119.4])
	by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id AAA17459
	for <ding@gnus.org>; Sun, 8 Aug 1999 00:21:24 -0400 (EDT)
Original-Received: from x2-312.mtl.Generation.NET (brnstndkramden.acf.nyu.edu@x2-312.mtl.Generation.NET [209.205.10.220])
	by sparkle.Generation.NET (8.9.3/8.9.3) with SMTP id AAA25609
	for <ding@gnus.org>; Sun, 8 Aug 1999 00:21:21 -0400 (EDT)
Original-To: ding@gnus.org
Original-Lines: 39
User-Agent: Gnus/5.070095 (Pterodactyl Gnus v0.95) Emacs/20.3
Precedence: list
X-Majordomo: 1.94.jlt7
Xref: main.gmane.org gmane.emacs.gnus.general:24636
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:24636


Use spook.el to generate your mime separators!

This was inspired by Noah Friedman's spookmime.el for VM
(http://www.gnac.com/~hogan/vm/files/spookmime.el) which says the original
idea came from Bryan O'Sullivan.

One caveat, I don't actually know what restrictions MIME imposes on
separators, we should strip out any improper characters, keep it within
whatever size limits are relevant etc. This was just a quick first pass.

As an aside, I really like Gnus's minimal separators. It was a good idea. I'm
not sure the hack value of this outweighs the niceness of having human
readable MIME encoded mail. That said, the benefit is likely to be lost
anyways when all the MIME headers are inserted and the content is
quoted-unreadabled.

Without further ado, the code:

(defun spook-make-boundary nil
  (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)))))

To set gnus to use this just do something like:

(defun mml-make-boundary nil (spook-make-boundary))

(except that won't dtrt if you load it before mml.


-- 
greg