Multiple signature files

Multiple signature files

[Graham Todd]

Having used e-mail packages in Emacs installations that have been
customised by others I'm not sure what is standard behaviour. I seem
to recall a similar feature but perhaps it came from another package.

Is it possible to set up Gnus so that a standard signature is inserted
into messages but doing something like C-c C-w queries for a signature
file from a directory (and perhaps then removes the standard .sig from
the buffer and inserts the selected one instead) ?

-- 
Graham Todd

Re: Multiple signature files

[Bill White]

In article <x6lncphf8z.fsf@ninga.ellerbeck.org>, Graham Todd <gtodd@yorku.ca> writes:

  gt> Having used e-mail packages in Emacs installations that have
  gt> been customised by others I'm not sure what is standard
  gt> behaviour. I seem to recall a similar feature but perhaps it
  gt> came from another package.

  gt> Is it possible to set up Gnus so that a standard signature is
  gt> inserted into messages but doing something like C-c C-w queries
  gt> for a signature file from a directory (and perhaps then removes
  gt> the standard .sig from the buffer and inserts the selected one
  gt> instead) ?

I use a hacked version of Trey Jackson's sig-quote.el
<url:http://bmrc.berkeley.edu/~trey/emacs/sig-quote.html>

You could hack it further to do what you want. Here's my simple-minded
hack to make it do what I want (query me for a quote type when I start
a message, then produce random quotes from that quote type for my
consideration):

.gnus:
----------------------------------------------------------------------
(load-library "sig-quote")
(setq message-signature '(sq-add-quote))
----------------------------------------------------------------------

unified diff of my changes:
----------------------------------------------------------------------
--- sig-quote.el	Thu Jun 24 12:11:50 1999
+++ sig-quote.orig.el	Fri Jul  9 13:34:08 1999
@@ -627,7 +627,7 @@
 (defun sq-send-without-quote (&optional prefix)
   "Send message and exit buffer without adding a quote."
   (interactive"P")
-;  (sq-assert-mode-on)
+  (sq-assert-mode-on)
   (if sq-quote-added-manually
       (sq-remove-quote))
   (setq sq-quote-added-manually t)
@@ -638,7 +638,7 @@
 Non-nil optional argument causes email addresses to be ignored,
 and the user is prompted for a type of quote."
   (interactive)
-;  (sq-assert-mode-on)
+  (sq-assert-mode-on)
   (if (or (interactive-p)
           ignore-addresses
           (not sq-quote-added-manually))
@@ -663,7 +663,7 @@
   "Remove the quote added after the signature.
 Optional argument NEW-QUOTE specifies what replaces the old quote."
   (interactive)
-;  (sq-assert-mode-on)
+  (sq-assert-mode-on)
   (and (interactive-p)
        (or (sq-valid-buffer-p)
            (error (format "Not in %s buffer."
@@ -689,7 +689,7 @@
 (defun sq-quote-types ()
   "Display the types of quotes appropriate for this letter."
   (interactive)
-;  (sq-assert-mode-on)
+  (sq-assert-mode-on)
   (let ((type-string (sq-make-type-string
                       (sq-generate-type-list (sq-header-addresses)))))
     (if type-string
@@ -1130,33 +1130,24 @@
         (addresses (sq-header-addresses)))
 
     ;; if no addresses
-
-; billw 24Jun99 - replacing this block with what I always choose.
-;     (if (and (not addresses) (not ignore-addresses))
-;         (if (y-or-n-p
-;              "No email addresses to determine quote type!  -- default to all? ")
-;             (setq type-list t))
-;       (setq type-list (sq-generate-type-list addresses)))
-;      (setq type-list (sq-generate-type-list addresses))
+    (if (and (not addresses) (not ignore-addresses))
+        (if (y-or-n-p
+             "No email addresses to determine quote type!  -- default to all? ")
+            (setq type-list t))
+      (setq type-list (sq-generate-type-list addresses)))
 
     ;; if no common quote types amongst email addresses,
     ;; or if ignore-addresses -> chose a quote type
-
-; billw 24Jun99 - replacing block with what I always choose
-;     (if (or ignore-addresses
-;             (and (not type-list)
-;                  sq-warn-if-no-quote
-;                  (y-or-n-p
-; "The email addresses have no common types, would you like to chose a type of quote? ")))
-;         (setq type-list (list (completing-read "Choose a quote type: "
-;                                                (mapcar 'list (sq-list-of-quote-types))
-;                                                nil
-;                                                t)))
-;       (message nil))
-     (setq type-list (list (completing-read "Choose a quote type: "
-                                             (mapcar 'list (sq-list-of-quote-types))
+    (if (or ignore-addresses
+            (and (not type-list)
+                 sq-warn-if-no-quote
+                 (y-or-n-p
+"The email addresses have no common types, would you like to chose a type of quote? ")))
+        (setq type-list (list (completing-read "Choose a quote type: "
+                                               (mapcar 'list (sq-list-of-quote-types))
                                                nil
                                                t)))
+      (message nil))
 
     (sq-filter-quotes (sq-list-of-quotes) type-list)))
 
----------------------------------------------------------------------

Part of my ~/.signature.quotes
----------------------------------------------------------------------
BEGIN QUOTE-TYPE: books 
--
Bill White . billw@wolfram.com . http://members.wri.com/billw
"I always thought that Paradise would be a kind of library." 
-Jorge Luis Borges
END QUOTE-TYPE

BEGIN QUOTE-TYPE: me
--
Bill White . billw@wolfram.com . http://members.wri.com/billw
END QUOTE-TYPE

BEGIN QUOTE-TYPE: poor
--
Bill White . billw@wolfram.com . http://members.wri.com/billw
"By experts in poverty I do not mean sociologists, but poor men." -G.
K. Chesterton, Illustrated London News, 3/25/11
-----------------------------------------quote
--
Bill White . billw@wolfram.com . http://members.wri.com/billw
"If we want to give poor people soap we must set out deliberately to
give them luxuries. If we will not make them rich enough to be clean,
then empathically we must do what we did with the saints. We must
reverence them for being dirty." -G. K. Chesterton, What's Wrong with
the World
-----------------------------------------quote
--
Bill White . billw@wolfram.com . http://members.wri.com/billw
"All but the hard hearted man must be torn with pity for this pathetic
dilemma of the rich man, who has to keep the poor man just stout
enough to do the work and just thin enough to have to do it." -G. K.
Chesterton, Utopia of Usurers, 1917
-----------------------------------------quote
--
Bill White . billw@wolfram.com . http://members.wri.com/billw
"Only poor men get hanged." -G. K. Chesterton, Illustrated London
News, 7/17/09
END QUOTE-TYPE
----------------------------------------------------------------------

enjoy -

bw
--
Bill White . billw@wolfram.com . http://members.wri.com/billw
"Some people leave money for the improvement of public buildings. I
can leave dynamite for the improvement of public buildings." -G. K.
Chesterton, Illustrated London News, 3-17-06

Re: Multiple signature files

[Graham Todd]

>>>>> "Jack" == Jack Vinson <vinson@unagi.cis.upenn.edu> writes:

>>>>> "GT" == Graham Todd <gtodd@yorku.ca> writes:
    GT> Having used e-mail packages in Emacs installations that have
    GT> been customised by others I'm not sure what is standard
    GT> behaviour. I seem to recall a similar feature but perhaps it
    GT> came from another package.

    GT> Is it possible to set up Gnus so that a standard signature is
    GT> inserted into messages but doing something like C-c C-w
    GT> queries for a signature file from a directory (and perhaps
    GT> then removes the standard .sig from the buffer and inserts the
    GT> selected one instead) ?

    Jack> You might want to check out the gnus-posting-styles
    Jack> variable.  The best help is in the info file with examples
    Jack> and explanations.  You can set address, signatures and any
    Jack> number of header entries based on which group you are
    Jack> reading when you enter message-mode.

OK thanks. I should've re-fetched the group (got new news) because I
think you answer a second query/suggestion I just sent.

Man this group is busy - it's almost faster than IRC you get an answer
in a few minutes it seems .. ;-)

-- 
Graham Todd        

Re: Multiple signature files

[Lars Magne Ingebrigtsen]

Graham Todd <gtodd@yorku.ca> writes:

> Man this group is busy - it's almost faster than IRC you get an answer
> in a few minutes it seems .. ;-)

We need a Gnus interface to irc.

I'M JUST KIDDING!  DON'T HIT ME!

Anyway, so I did the following in my zenirc buffer:

/join #gnus
[info] Joining channel: #gnus
[info] #gnus topic: Gnus -- http://www.gnus.org
[info] Users on #gnus: lmi @Kasi

Eek!  There's already a Gnus channel.  Scaary.

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

Re: Multiple signature files

[François Pinard]

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

> We need a Gnus interface to irc.  [...]
> I'M JUST KIDDING!  DON'T HIT ME!

Hmph!  It's worth a thought.  I have a *huge* collection of IRC chats,
all in very approximative low French, I want to analyse, just for the fun
of doing linguistics.  Yet, this is very low priority in my things.

Lars lets me think that a Gnus interface to that mass (mess? :-) might have
some appeal.  I'm most probably just kidding as well.  I'll probably need
much more powerful horses when the time comes for me to play with that...

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

Re: Multiple signature files

[Jack Vinson]

>>>>> "GT" == Graham Todd <gtodd@yorku.ca> writes:

GT> Having used e-mail packages in Emacs installations that have been
GT> customised by others I'm not sure what is standard behaviour. I seem
GT> to recall a similar feature but perhaps it came from another package.

GT> Is it possible to set up Gnus so that a standard signature is inserted
GT> into messages but doing something like C-c C-w queries for a signature
GT> file from a directory (and perhaps then removes the standard .sig from
GT> the buffer and inserts the selected one instead) ?

You might want to check out the gnus-posting-styles variable.  The best
help is in the info file with examples and explanations.  You can set
address, signatures and any number of header entries based on which group
you are reading when you enter message-mode.

-- 
Jack Vinson <jvinson@chevax.ecs.umass.edu>
Zippy: I FORGOT to do the DISHES!!