problem with sending mail in pgnus 0.9[23]

problem with sending mail in pgnus 0.9[23]

[Turbo Fredriksson]

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: Type: text/plain; charset=NIL, Size: 1215 bytes --]

When I do gnus-summary-mail-other-window or gnus-group-mail I get an error,
with the following line:

        Ispell: Subject:

With the error:

        Wrong type argument: char-or-string-p, t

What's up?

The backtrace shows:

----- s n i p -----
  insert("Ispell" ": " t "\n")
  (save-excursion (message-remove-header "Ispell") (message-goto-eoh) (insert "Ispell" ": " t "\n"))
  (lambda nil (save-excursion (message-remove-header "Ispell") (message-goto-eoh) (insert "Ispell" "$
  run-hooks(message-setup-hook)
  message-setup(((To . "") (Subject . "")))
  message-mail()
  gnus-group-mail(nil)
* call-interactively(gnus-group-mail)
----- s n i p -----

This version (0.84) works perfect though.

-- 
 Turbo     __ _     Debian GNU     Unix _IS_ user friendly - it's just 
 ^^^^^    / /(_)_ __  _   ___  __  selective about who its friends are 
         / / | | '_ \| | | \ \/ /   Debian Certified Linux Developer  
  _ /// / /__| | | | | |_| |>  <  Turbo Fredriksson   turbo@tripnet.se
  \\\/  \____/_|_| |_|\__,_/_/\_\ Stockholm/Sweden
-- 
BATF DES World Trade Center Peking assassination counter-intelligence
Ortega ammunition Ft. Bragg domestic disruption Serbian spy
cryptographic strategic class struggle

[-- Attachment #2: Type: application/pgp-signature, Size: 347 bytes --]

Re: problem with sending mail in pgnus 0.9[23]

[Lars Magne Ingebrigtsen]

Turbo Fredriksson <turbo@tripnet.se> writes:

>   insert("Ispell" ": " t "\n")
>   (save-excursion (message-remove-header "Ispell") (message-goto-eoh) (insert "Ispell" ": " t "\n"))
>   (lambda nil (save-excursion (message-remove-header "Ispell") (message-goto-eoh) (insert "Ispell" "$
>   run-hooks(message-setup-hook)

This is run from a hook.  Is it a function you're written yourself,
or one generated by Gnus?

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

Re: problem with sending mail in pgnus 0.9[23]

[Turbo Fredriksson]

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: Type: text/plain; charset=NIL, Size: 6057 bytes --]


Oki, I  have worked a  little while with  this, and it _IS_  a problem
with the variables gnus-posting-style-alist and gnus-posting-styles.

In the first part (the 'Default') below, if I uncomment the ispell, yow,
spook and pgp lines, I end up with a header line saying 'Pgpid: turbo'.

So now, PGnus (v0.9?) is inserting my 'gnus-posting-styles' literally,
which it doesn't in the one that works (v0.84). There it sets the variable
I specified instead.

Which means, that when I use the '(ispell t)', it sets the variable
'turbo/process-ispell' to true instead.

When and why was this behaviour changed? (I'm not saying that it's
worse, I just have to rewrite some other hooks to take this into
account). Or is this a bug?

----- s n i p -----
(setq gnus-posting-style-alist
      '((organization . message-user-organization)
        (signature . message-signature)
        (signature-file . message-signature-file)
        (address . user-mail-address)
        (name . user-full-name)
        (ispell . turbo/process-ispell)
        (yow . turbo/process-yow)
        (spook . turbo/process-spook)
        (pgp . turbo/process-pgp)
        (pgpid . mc-pgp-user-id)
        (nntp . nntp-address)
        (header . message-default-headers)))

;; Attributes, check variable 'gnus-posting-style-alist'
(setq gnus-posting-styles
      '((".*"
         ;; Default
         (address        "turbo@tripnet.se")
         (name           "Turbo Fredriksson")
         (organization   "NoCrew")
         (signature      t)
         (signature-file "~/.signature.default")
         (ispell         t)
         (yow            t)
         (spook          t)
         (pgp            t)
         (pgpid          "turbo")
         (header
          (concat "X-PGP-Fingerprint: B7 92 93 0E 06 94 D6 22  98 1F 0B 5B FE 33 A1 0B\n"
                  "X-PGP-Key-ID: 0x788CD1A9\n"
                  "X-URL: http://www.nocrew.org/~turbo/\n")))
        ;;
        ("debian\\.bugs"
         (address        "turbo@debian.org")
         (organization   "Debian GNU/Linux")
         (spook          nil)
         (yow            nil)
         (pgp            nil)
         (signature-file "~/.signature.debian"))
        ("debian\\."
         ;; Debian mailinglists...
         (address        "turbo@debian.org")
         (organization   "Debian GNU/Linux")
         (signature-file "~/.signature.debian")
         (pgp            t)
         (yow            t)
         (spook          t))
        ;;
        ("misc\\.majordomo"
         ;; Majordomo requests
         (name           "Turbo Fredriksson")
         (address        "turbo@tripnet.se")
         (organization   "No organization, I'm lame")
         (ispell         nil)
         (yow            nil)
         (spook          nil)
         (pgp            nil))
        ;;
        ("solheim\\."
         ;; Solheim mails
         (name           "Ulf TURBO Fredriksson")
         (address        "turbo@solheim.net")
         (organization   "Solheim System AB")
         (signature-file "~/.signature.solheim")
         (pgp            nil)
         (spook          nil))
        ("solheim\\.registry"
         ;; Solheim registry.
         (name           "DNS Registry")
         (address        "registry@solheim.net")
         (organization   "Solheim System AB")
         (signature      nil)
         (spook          nil)
         (yow            nil)
         (pgp            t)
         (pgpid          "registry")
         (header
          (concat "X-PGP-Fingerprint: 28 6E 0D 6E FB AB 65 57  27 EB 51 C2 FA 9F 34 6A\n"
                  "X-PGP-Key-ID: 0x70753BED\n")))
        ("solheim\\.root"
         ;; Solheim registry.
         (name           "Solheim System AB")
         (address        "staff@solheim.net")
         (organization   "Solheim System AB")
         (pgp            nil)
         (spook          nil)
         (yow            nil))
        ;;
        ("other\\.vanc"
         ;; VanLUG mailing list
         (address        "turbo@nocrew.org")
         (signature      nil)
         (pgp            nil))
        ;;
        ("ccw\\.admin"
         (address        "turbo@tripnet.se")
         (organization   "Computer Club West")
         (signature      'fortune)
         (name           "Turbo")
         (pgp            nil))
        ;;
        ("mail\\.testings"
         ;; My test group...
         (address        "turbo@papadoc.solheim.net")
         (name           "Test turbo")
         (signature      nil)
         (ispell         nil))
        ;;
        ("personal"
         ;; Personal mail
         (address        "turbo@nocrew.org")
         (signature      t))
        ;; Newsgroups does not seem to understand this, but...
        ("alt\\.testing\\.testing"
         ;; For the test newsgroup
         (address        "turbo@nocrew.org")
         (name           "Just a test user name"))
        ("gnu\\.emacs\\.gnus"
         ;; For the gnus newsgroup
         (address        "turbo@tripnet.se")
         (signature-file "~/.signature.gnus"))
        ("from\\.sorken"
         (signature-file "~/.signature.sorken"))
        ("from\\.linda"
         (signature-file "~/.signature.linda")
         (spook          nil)
         (pgp            nil))
        ("\\(.*christa\\|farsan\\)"
         (signature-file "~/.signature.misc")
         (spook          nil)
         (pgp            nil))
        ("alt\\.tv\\.star-trek"
         ;; For the Star Trek newsgroup
         (address        "turbo@tripnet.se")
         (signature-file "~/.signature.startrek"))))
----- s n i p -----

-- 
 Turbo     __ _     Debian GNU     Unix _IS_ user friendly - it's just 
 ^^^^^    / /(_)_ __  _   ___  __  selective about who its friends are 
         / / | | '_ \| | | \ \/ /   Debian Certified Linux Developer  
  _ /// / /__| | | | | |_| |>  <  Turbo Fredriksson   turbo@tripnet.se
  \\\/  \____/_|_| |_|\__,_/_/\_\ Stockholm/Sweden
-- 
KGB Delta Force smuggle NORAD Panama Peking Khaddafi Semtex colonel
Legion of Doom North Korea SEAL Team 6 DES Qaddafi Mossad

[-- Attachment #2: Type: application/pgp-signature, Size: 347 bytes --]

Re: problem with sending mail in pgnus 0.9[23]

[Kai Großjohann]

Turbo Fredriksson <turbo@tripnet.se> writes:

> Oki, I have worked a little while with this, and it _IS_ a problem
> with the variables gnus-posting-style-alist and gnus-posting-styles.

I think most of your problems stem from the fact that the string
gnus-posting-style-alist appears nowhere in the pgnus-0.95 *.el files.

In the info file, it is documented that each posting style consists of
a first element, the match, and subsequent elements, the attributes.
Each attribute is a (NAME VALUE) pair (note the missing dot) where the
name can be a symbol (only `signature', `signature-file',
`organization', `address', `name' or `body' are allowed) or a string,
which is taken to be a header name.

Apparently, the VALUE is evaled if NAME is a string, but I'm not sure.

kai
-- 
Life is hard and then you die.

Re: problem with sending mail in pgnus 0.9[23]

[Turbo Fredriksson]

--pgp-sign-Multipart_Sat_Sep_18_17:03:42_1999-1
Content-Type: text/plain; charset=NIL

>>>>> "Kai" == Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> writes:

    Kai> Turbo Fredriksson <turbo@tripnet.se> writes:
    >> Oki, I have worked a little while with this, and it _IS_ a
    >> problem with the variables gnus-posting-style-alist and
    >> gnus-posting-styles.

    Kai> I think most of your problems stem from the fact that the
    Kai> string gnus-posting-style-alist appears nowhere in the
    Kai> pgnus-0.95 *.el files.

Nether in pgnus-0.96. This was a very useful feature, to be able
to specify you own attributes. This is how it looked in 0.84 (amongst
other). The function that was affected (ie, used) this variable was
gnus-configure-posting-styles(). I'm not good enough with lisp, but
I really want this function. Could it please be put back in, or could
someone patch `gnus-msg.el' to utilize this function for me? I'd be
very greatefull...

----- s n i p -----
(defvar gnus-posting-style-alist
  '((organization . message-user-organization)
    (signature . message-signature)
    (signature-file . message-signature-file)
    (address . user-mail-address)
    (name . user-full-name))
  "*Mapping from style parameters to variables.")
----- s n i p -----

-- 
 Turbo     __ _     Debian GNU     Unix _IS_ user friendly - it's just 
 ^^^^^    / /(_)_ __  _   ___  __  selective about who its friends are 
         / / | | '_ \| | | \ \/ /   Debian Certified Linux Developer  
  _ /// / /__| | | | | |_| |>  <  Turbo Fredriksson   turbo@tripnet.se
  \\\/  \____/_|_| |_|\__,_/_/\_\ Stockholm/Sweden
-- 
Honduras SDI Uzi security Delta Force Peking SEAL Team 6 radar
supercomputer quiche arrangements Rule Psix Noriega Ortega colonel

--pgp-sign-Multipart_Sat_Sep_18_17:03:42_1999-1
Content-Type: application/pgp-signature
Content-Transfer-Encoding: 7bit

-----BEGIN PGP MESSAGE-----
Version: 2.6.3a
Comment: Processed by Mailcrypt 3.5.1, an Emacs/PGP interface

iQCVAwUBN+Op1RZ4ByN4jNGpAQHBdQP+OwcfM9//Yvl4i6LVEwRUFm1qKbcxEHD2
TrIO8St5Ft/Dyp2vO9wzr4lHWC098St9o6MqgHrDh6DQvNsKoRpazwAcSDd7P/FM
5b2PcpqMwW6knNftWJiF+YggQ6YbcvOI9tLWNiBWl2kYSd0R4yqT/rYcnK+pi8Ip
3SVrxjVtQYA=
=uF4Y
-----END PGP MESSAGE-----

--pgp-sign-Multipart_Sat_Sep_18_17:03:42_1999-1--

Re: problem with sending mail in pgnus 0.9[23]

[Turbo Fredriksson]

Quoting pahe@daimi.au.dk (Peter von der Ahé):

> >>>>> "TF" == Turbo Fredriksson <turbo@tripnet.se> writes:
> 
>  TF> As I said, no.
> 
>  TF> ----- s n i p -----
>  TF> [ssh.papadoc]$ rgrep Ispell *
>  TF> [ssh.papadoc]$
>  TF> ----- s n i p -----
> 
> Hmm...
> 
> Wouldn't "rgrep -r Ispell ." find a bit more?

Maybe, but I thought that 'rgrep' DID a recursive search. Anyway, it still
don't find anything... I'm to search the whole load-path later (I'm a little
short on time at this moment, but I'll do it as soon as I get home in a couple
of hours).

Wierd. I can't send the mail to you nore grossman because of the local
characters in the To address...

Maybe that is fixed in the newer version...

-- 
 Turbo     __ _     Debian GNU     Unix _IS_ user friendly - it's just 
 ^^^^^    / /(_)_ __  _   ___  __  selective about who its friends are 
         / / | | '_ \| | | \ \/ /   Debian Certified Linux Developer  
  _ /// / /__| | | | | |_| |>  <  Turbo Fredriksson   turbo@tripnet.se
  \\\/  \____/_|_| |_|\__,_/_/\_\ Stockholm/Sweden
-- 
Noriega Khaddafi FSF Albanian explosion [Hello to all my fans in
domestic surveillance] Ft. Bragg jihad DES supercomputer SDI Soviet
PLO Saddam Hussein assassination

Re: problem with sending mail in pgnus 0.9[23]

[Peter von der Ahé]

>>>>> "TF" == Turbo Fredriksson <turbo@tripnet.se> writes:

 TF> As I said, no.

 TF> ----- s n i p -----
 TF> [ssh.papadoc]$ rgrep Ispell *
 TF> [ssh.papadoc]$
 TF> ----- s n i p -----

Hmm...

Wouldn't "rgrep -r Ispell ." find a bit more?

Cheers,
Peter

Re: problem with sending mail in pgnus 0.9[23]

[Turbo Fredriksson]

--pgp-sign-Multipart_Mon_Jul_12_13:39:39_1999-1
Content-Type: text/plain; charset=NIL

>>>>> "Kai" == Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> writes:

    Kai> Turbo Fredriksson <turbo@tripnet.se> writes:
    >> Thing is, I'm not doing this...  There is nothing in my scripts
    >> that insert this header line.

    Kai> Well, the code I quoted is in your message-setup-hook, along
    Kai> with some function which has got "turbo" in its name (which
    Kai> kind of suggests that it was written by you).  I don't know
    Kai> how it got there, but it must be from one of your Lisp files.
    Kai> I suggest that you search all directories on your load-path
    Kai> for files which contain the word "Ispell" -- I'm sure you'll
    Kai> find the right one.

As I said, no.

----- s n i p -----
[ssh.papadoc]$ rgrep Ispell *
[ssh.papadoc]$
----- s n i p -----

I have however set the 'gnus-posting-style-alist' and 'gnus-posting-styles'
(see previous mail in the thread).


-- 
 Turbo     __ _     Debian GNU     Unix _IS_ user friendly - it's just 
 ^^^^^    / /(_)_ __  _   ___  __  selective about who its friends are 
         / / | | '_ \| | | \ \/ /   Debian Certified Linux Developer  
  _ /// / /__| | | | | |_| |>  <  Turbo Fredriksson   turbo@tripnet.se
  \\\/  \____/_|_| |_|\__,_/_/\_\ Stockholm/Sweden
-- 
SEAL Team 6 kibo domestic disruption quiche North Korea FBI Qaddafi
Legion of Doom cracking Honduras Nazi jihad Serbian FSF Rule Psix

--pgp-sign-Multipart_Mon_Jul_12_13:39:39_1999-1
Content-Type: application/pgp-signature
Content-Transfer-Encoding: 7bit

-----BEGIN PGP MESSAGE-----
Version: 2.6.3a
Comment: Processed by Mailcrypt 3.5.1, an Emacs/PGP interface

iQCVAwUBN4nT+xZ4ByN4jNGpAQGGWAP8DjAY9CENd0EnO8FHlUhALLeGSGsZ6GDt
VwA32RxC63V8NfjqsgqgWye43WFUSC1EL25n8qMKiCpbPrkvT2uw1Im94V8+lCj5
CMo7TfxhWLUMKRzX4AP6aTPufzYY5xjKJxw5ATNyzKFK9FSuYGV2FcPrP7lokZdW
yEB6ropGY8g=
=JZrw
-----END PGP MESSAGE-----

--pgp-sign-Multipart_Mon_Jul_12_13:39:39_1999-1--

Re: problem with sending mail in pgnus 0.9[23]

[Kai Großjohann]

Turbo Fredriksson <turbo@tripnet.se> writes:

> Thing is, I'm not doing this...
> There is nothing in my scripts that insert this header line.

Well, the code I quoted is in your message-setup-hook, along with some
function which has got "turbo" in its name (which kind of suggests
that it was written by you).  I don't know how it got there, but it
must be from one of your Lisp files.  I suggest that you search all
directories on your load-path for files which contain the word
"Ispell" -- I'm sure you'll find the right one.

kai
-- 
Life is hard and then you die.

Re: problem with sending mail in pgnus 0.9[23]

[Turbo Fredriksson]

--pgp-sign-Multipart_Mon_Jul_12_12:21:26_1999-1
Content-Type: text/plain; charset=NIL

>>>>> "Kai" == Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> writes:

    Kai> Turbo Fredriksson <turbo@tripnet.se> writes:
    >> (lambda nil (save-excursion (message-remove-header "Ispell")
    >> (message-goto-eoh) (insert "Ispell" ": " t "\n")))

    Kai> I don't understand what you're trying to do here.  If you
    Kai> want to add "Ispell: t" to your headers, why don't you just
    Kai> do it?  Why do you do such complicated stuff?  Hm.

Thing is, I'm not doing this...

There is nothing in my scripts that insert this header line.

-- 
 Turbo     __ _     Debian GNU     Unix _IS_ user friendly - it's just 
 ^^^^^    / /(_)_ __  _   ___  __  selective about who its friends are 
         / / | | '_ \| | | \ \/ /   Debian Certified Linux Developer  
  _ /// / /__| | | | | |_| |>  <  Turbo Fredriksson   turbo@tripnet.se
  \\\/  \____/_|_| |_|\__,_/_/\_\ Stockholm/Sweden
-- 
counter-intelligence Clinton Honduras supercomputer NORAD Marxist PLO
Ortega Kennedy Albanian Semtex nuclear South Africa FSF Ft. Bragg

--pgp-sign-Multipart_Mon_Jul_12_12:21:26_1999-1
Content-Type: application/pgp-signature
Content-Transfer-Encoding: 7bit

-----BEGIN PGP MESSAGE-----
Version: 2.6.3a
Comment: Processed by Mailcrypt 3.5.1, an Emacs/PGP interface

iQCVAwUBN4nBrBZ4ByN4jNGpAQEeEgP9GVHuXUQihWud+teLWy8mT/RurjG9D69u
mH+Wton+0dKytqtGzC5x45wxTk660C/UVv0UJxa5ebYGvu3H+U3HBS0odbGImS8P
WwVa4QiTpHibvkcsx9fzOqx+vWT2etn1021CPylYIK5wm7uhn5EV8XkZX3r0sGgL
MkR/i6fqb10=
=kW8m
-----END PGP MESSAGE-----

--pgp-sign-Multipart_Mon_Jul_12_12:21:26_1999-1--

Re: problem with sending mail in pgnus 0.9[23]

[Kai Großjohann]

Turbo Fredriksson <turbo@tripnet.se> writes:

>  (lambda nil
>    (save-excursion
>      (message-remove-header "Ispell")
>      (message-goto-eoh)
>      (insert "Ispell" ": " t "\n")))

I don't understand what you're trying to do here.  If you want to add
"Ispell: t" to your headers, why don't you just do it?  Why do you do
such complicated stuff?  Hm.

(setq message-default-headers (concat "Ispell: t\n" message-default-headers))

kai
-- 
Life is hard and then you die.

Re: problem with sending mail in pgnus 0.9[23]

[Turbo Fredriksson]

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: Type: text/plain; charset=NIL, Size: 4846 bytes --]

Quoting Lars Magne Ingebrigtsen <larsi@gnus.org>:

> Turbo Fredriksson <turbo@debian.org> writes:
> 
> >     >> insert("Ispell" ": " t "\n") (save-excursion
> 
> [...]
> 
> > This is the hook that i have for 'message-setup-hook'. Doesn't matter
> > if I disable it or not, same thing.
> 
> But where does this "Ispell" thing come from?  I've grepped through
> the sources, and that string is not there.

I have no idea what so ever. _I'm_ not inserting it.

With a little more investigation, I found out that it have something
to do with the `gnus-posting-styles'.

This is how they look like now:

----- s n i p -----
(setq gnus-posting-style-alist
      '((organization . message-user-organization)
        (signature . message-signature)
        (signature-file . message-signature-file)
        (address . user-mail-address)
        (name . user-full-name)
        (ispell . turbo/process-ispell)
        (yow . turbo/process-yow)
        (spook . turbo/process-spook)
        (pgp . turbo/process-pgp)
        (pgpid . mc-pgp-user-id)
        (nntp . nntp-address)
        (header . message-default-headers)))

;; Attributes, check variable 'gnus-posting-style-alist'
(setq gnus-posting-styles
      '((".*"
         ;; Default
         (address        "turbo@tripnet.se")
         (name           "Turbo Fredriksson")
         (organization   "NoCrew")
         (signature      t)
         (signature-file "~/.signature.default")
         (ispell         t)
         (yow            t)
         (spook          t)
         (pgp            t)
         (pgpid          "turbo")
         (header
          (concat "X-PGP-Fingerprint: B7 92 93 0E 06 94 D6 22  98 1F 0B 5B FE 33 A1 0B\n"
                  "X-PGP-Key-ID: 0x788CD1A9\n"
                  "X-URL: http://www.nocrew.org/~turbo/\n")))
        ;;
        [etc ...]
----- s n i p -----

If I coment out the 'ispell' line, I get the line (last line) instead.

----- s n i p -----
From: Turbo Fredriksson <turbo@tripnet.se>
Organization: NoCrew
Yow: --text follows this line--
----- s n i p -----

Variables:

----- s n i p -----
turbo/process-ispell's value is
t

message-setup-hook's value is shown below.

Documentation:
Normal hook, run each time a new outgoing message is initialized.
The function `message-setup' runs this hook.

Value:
((lambda nil
   (let
       ((user-full-name "Turbo Fredriksson")
	(user-mail-address "turbo@tripnet.se"))
     (save-excursion
       (message-remove-header "From")
       (message-goto-eoh)
       (insert "From: "
	       (message-make-from)
	       "\n"))))
 (lambda nil
   (save-excursion
     (message-remove-header "Organization")
     (message-goto-eoh)
     (insert "Organization" ": " "NoCrew" "\n")))
 (lambda nil
   (save-excursion
     (let
	 ((message-signature " Turbo     __ _     Debian GNU     Unix _IS_ user friendly - it's just \n ^^^^^    / /(_)_ __  _   ___  __  selective about who its friends are \n         / / | | '_ \\| | | \\ \\/ /   Debian Certified Linux Developer  \n  _ /// / /__| | | | | |_| |>  <  Turbo Fredriksson   turbo@tripnet.se\n  \\\\\\/  \\____/_|_| |_|\\__,_/_/\\_\\ Stockholm/Sweden\n"))
       (message-insert-signature))))
 (lambda nil
   (save-excursion
     (message-remove-header "Ispell")
     (message-goto-eoh)
     (insert "Ispell" ": " t "\n")))
 (lambda nil
   (save-excursion
     (message-remove-header "Yow")
     (message-goto-eoh)
     (insert "Yow" ": " t "\n")))
 (lambda nil
   (save-excursion
     (message-remove-header "Spook")
     (message-goto-eoh)
     (insert "Spook" ": " t "\n")))
 (lambda nil
   (save-excursion
     (message-remove-header "Pgp")
     (message-goto-eoh)
     (insert "Pgp" ": " t "\n")))
 (lambda nil
   (save-excursion
     (message-remove-header "Pgpid")
     (message-goto-eoh)
     (insert "Pgpid" ": " "turbo" "\n")))
 (lambda nil
   (save-excursion
     (message-remove-header "Header")
     (message-goto-eoh)
     (insert "Header" ": " "X-PGP-Fingerprint: B7 92 93 0E 06 94 D6 22  98 1F 0B 5B FE 33 A1 0B\nX-PGP-Key-ID: 0x788CD1A9\nX-URL: http://www.nocrew.org/~turbo/\n" "\n")))
 turbo/message-setup-hook mc-install-write-mode message-maybe-setup-default-charset mime/editor-mode)

Local in buffer *mail*; global value is 
(turbo/message-setup-hook mc-install-write-mode message-maybe-setup-default-charset mime/editor-mode)
----- s n i p -----

-- 
 Turbo     __ _     Debian GNU     Unix _IS_ user friendly - it's just 
 ^^^^^    / /(_)_ __  _   ___  __  selective about who its friends are 
         / / | | '_ \| | | \ \/ /   Debian Certified Linux Developer  
  _ /// / /__| | | | | |_| |>  <  Turbo Fredriksson   turbo@tripnet.se
  \\\/  \____/_|_| |_|\__,_/_/\_\ Stockholm/Sweden
-- 
$400 million in gold bullion Albanian AK-47 cryptographic jihad Rule
Psix Saddam Hussein Ft. Bragg genetic strategic NSA Qaddafi quiche
Honduras colonel

[-- Attachment #2: Type: application/pgp-signature, Size: 347 bytes --]