Gnus development mailing list
 help / color / mirror / Atom feed
From: Turbo Fredriksson <turbo@tripnet.se>
Subject: Re: problem with sending mail in pgnus 0.9[23]
Date: 11 Jul 1999 14:15:13 +0200	[thread overview]
Message-ID: <ygfyagn8jse.fsf@papadoc.bergsjon.gbg.org> (raw)
In-Reply-To: <m3r9mftuc8.fsf@quimbies.gnus.org>

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

  reply	other threads:[~1999-07-11 12:15 UTC|newest]

Thread overview: 14+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
1999-07-10 18:05 [Turbo Fredriksson <turbo@tripnet.se>] " Turbo Fredriksson
1999-07-11  9:21 ` Lars Magne Ingebrigtsen
1999-07-11 12:15   ` Turbo Fredriksson [this message]
1999-07-11 21:15     ` Kai Großjohann
1999-07-12 10:21       ` Turbo Fredriksson
1999-07-12 11:10         ` Kai Großjohann
1999-07-12 11:39           ` Turbo Fredriksson
1999-07-12 13:57             ` Peter von der Ahé
1999-07-12 14:51               ` Turbo Fredriksson
  -- strict thread matches above, loose matches on Subject: below --
1999-07-08 19:12 Turbo Fredriksson
1999-07-09 17:57 ` Lars Magne Ingebrigtsen
1999-07-14 17:45 ` Turbo Fredriksson
1999-07-14 21:28   ` Kai Großjohann
1999-09-18 15:03     ` Turbo Fredriksson

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=ygfyagn8jse.fsf@papadoc.bergsjon.gbg.org \
    --to=turbo@tripnet.se \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
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).