[Turbo Fredriksson <turbo@tripnet.se>] Re: problem with sending mail in pgnus 0.9[23]

[Turbo Fredriksson <turbo@tripnet.se>] Re: problem with sending mail in pgnus 0.9[23]

[Turbo Fredriksson]

[Sorry lars, I should have sent this to the list instead of to you only]

>>>>> "Lars" == Lars Magne Ingebrigtsen <larsi@gnus.org> writes:

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

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

This is the hook that i have for 'message-setup-hook'. Doesn't matter
if I disable it or not, same thing.

The reason that I must remove the sig here (but have one in the
resulting mail) is that it is PGP signed, and I always get PGP
checksum mismatch (or something like this) when the mail is
received if the sig is added after the signing.

The sig is inserted again when I do 'message-send-and-exit' but
BEFORE it is signed...

BTW, how far have the PGnus PGP stuff got? Can i remove the TM
hooks yet?

----- s n i p -----
(add-hook 'message-setup-hook 'turbo/message-setup-hook)
(defun turbo/message-setup-hook ()
  "Setup a message buffer, by checking if it's a reply to
a message, and then remove the sender's signature etc (so that
we don't have to do that our self).

Also make sure that this message gets automaticly PGP signed,
signature, spook and Yow inserted when we send of the message."
  ;; Remove the signature...
  (if (message-goto-signature)
      (let nil
        (beginning-of-line)
        (forward-line -2)
        (let ((beg (point)))
          ;; We really need to find the end of the sig...
          (goto-char (point-max))
          (delete-region beg (point)))))
  
  ;; Make sure that this message get's a attached PGP
  ;; signature... (code stolen from 'tm/tm-edit.el')
  (if (and (or mime-editor/signing-type turbo/process-pgp)
           (not pgnusp))
      (progn
        (setq mime-editor/pgp-processing 'sign)
        (message "This message will be signed.")
        )
    (message "Please specify signing type.")))
----- s n i p -----
-- 
strategic domestic disruption spy [Hello to all my fans in domestic
surveillance] genetic Rule Psix FBI colonel $400 million in gold
bullion NORAD Soviet Delta Force Honduras Noriega terrorist

Re: [Turbo Fredriksson <turbo@tripnet.se>] Re: problem with sending mail in pgnus 0.9[23]

[Lars Magne Ingebrigtsen]

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.

-- 
(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: 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 --]

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]

--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:

> 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_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]

[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]

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