spookmime.el

spookmime.el

[Shaun Lipscombe]

Is anyone using spookmime.el with pgnus?  If so, how did you get it
working.  The only reason I am asking, is because at the URL I have
for the file, it states:

--------8<---------

Spookmime insinuates itself into VM when loaded so that VM uses these
generated boundaries when sending or forwarding multipart MIME
messages.  Integration with GNUS is coming soon.

-------->8---------

The last sentance looks promising :)

Thanks,

Shaun

-- 
          (o_
(o_  (o_  //\
(/)_ (/)_ V_/_   shaun.lipscombe@gasops.co.uk

Re: spookmime.el

[Simon Josefsson]

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

Shaun Lipscombe <shaun.lipscombe@gasops.co.uk> writes:

> Is anyone using spookmime.el with pgnus?  If so, how did you get it
> working.  The only reason I am asking, is because at the URL I have
> for the file, it states:

Put this in your .gnus, I think it works.


[-- Attachment #2: Type: text/plain, Size: 441 bytes --]

(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)))))

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

Re: spookmime.el

[François Pinard]

> Shaun Lipscombe <shaun.lipscombe@gasops.co.uk> writes:

> > Is anyone using spookmime.el with pgnus?

What is `spookmime.el'?  And if you consider it interesting, what URL? :-)

-- 
François Pinard   http://www.iro.umontreal.ca/~pinard

Re: spookmime.el

[Hrvoje Niksic]

François Pinard <pinard@iro.umontreal.ca> writes:

> > Shaun Lipscombe <shaun.lipscombe@gasops.co.uk> writes:
> 
> > > Is anyone using spookmime.el with pgnus?
> 
> What is `spookmime.el'?

A package that generates spooky MIME boundaries, dedicated to "our
friends in the NSA."  :-)

Re: spookmime.el

[Shaun Lipscombe]

* "François" == François Pinard <pinard@iro.umontreal.ca> writes:

 >> Shaun Lipscombe <shaun.lipscombe@gasops.co.uk> writes: > Is anyone
 >> using spookmime.el with pgnus?

 François> What is `spookmime.el'?  And if you consider it
 François> interesting, what URL? :-)

http://www.splode.com/users/friedman/software/emacs-lisp/

Find it there.

Regards,

Shaun

-- 
          (o_
(o_  (o_  //\
(/)_ (/)_ V_/_   shaun.lipscombe@gasops.co.uk

Re: spookmime.el

[Lars Magne Ingebrigtsen]

Simon Josefsson <jas@pdc.kth.se> writes:

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

I've now added a `mml-boundary-function' variable to make it easier to
customize the boundary.

-- 
(domestic pets only, the antidote for overdose, milk.)
   larsi@gnus.org * Lars Magne Ingebrigtsen

Re: spookmime.el

[Greg Stark]

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


Hrvoje Niksic <hniksic@iskon.hr> writes:

> François Pinard <pinard@iro.umontreal.ca> writes:
> 
> > > Shaun Lipscombe <shaun.lipscombe@gasops.co.uk> writes:
> > 
> > > > Is anyone using spookmime.el with pgnus?

I posted this a while ago:



[-- Attachment #2: Type: message/rfc822, Size: 3073 bytes --]

From: Greg Stark <gsstark@MIT.EDU>
To: ding@gnus.org
Subject: Spook mime for Gnus
Date: 08 Aug 1999 00:21:16 -0400
Message-ID: <87yafm9a2r.fsf@x2-312.mtl.Generation.NET>


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



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


-- 
greg