Re: gnus-alias-get-something

[Bob Newell <bobnewell@bobnewell.net>]

Bob Newell <bobnewell@bobnewell.net> writes:

> Aloha everyone,
>
> The docs for gnus-alias-identity-alist seem to indicate that
> an element of the list can be a function that returns a
> string.  I have a need for that in the signature field, which
> gnus-alias.el accesses like this:
>
> (defun gnus-alias-get-sig (ID)
>   "Return the SIGNATURE portion of ID."
>   (gnus-alias-get-something ID 6))
>
> But we also have this:
>
> (defsubst gnus-alias-get-something (ID N)
>   "Return the Nth something from ID."
>   (let ((rv (nth N ID)))
>     (if (and (stringp rv) (= (length rv) 0)) nil rv)))
>
> I tried this on the signature field:
>
> (concat start-lisp-home ".signature")
>
> where start-lisp-home is previously defined as
>
> "~/data/elisp"
>
> and got a symbolp error.
>
> Any insights appreciated.  Probably user error!

To "clarify" further, the following works and does what I
want.

(defun rjn-make-sig-string ()

"Based on 'identity' from gnus-alias-identity-alist, insert a sig
from a file .signatureidentity in the start-lisp-home directory,
as defined globally elsewhere.  If the appropriate .signatureidentity
doesn't exist just use .signature and assume it exists."

	   (let ((try-file (concat start-lisp-home ".signature" identity))) 
                 (if (not (file-exists-p try-file))
		     (setq try-file (concat start-lisp-home ".signature")))
 	         (with-temp-buffer
                     (insert-file-contents try-file)
	             (buffer-string))  ))

(setq gnus-alias-identity-alist
   '( 
      ("aol"
       nil
       "Bob Newell <newell.bob@aol.com>"
       nil
       (("BCC" . "bobnewell@bobnewell.net")) ;; extra headers
       nil
       rjn-make-sig-string
       )
 ... etc.

However this seems like REALLY the long way around for
something maybe not terribly important.  Is there something
better?

Mahalo

-- 
Bob Newell
Honolulu, Hawai`i

- Via GNU/Linux/Emacs/Gnus/BBDB