lisp/ChangeLog addition:

2007-04-16  Didier Verna  <didier@xemacs.org>

	* gnus-msg.el (gnus-configure-posting-styles): Handle
	message-signature-directory properly with :file syntax. Reported by
	"Leo".

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 95639dc..13b05e2 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2007-04-16  Didier Verna  <didier@xemacs.org>
+
+       * gnus-msg.el (gnus-configure-posting-styles): Handle
+       message-signature-directory properly with :file syntax. Reported by
+       "Leo".
+
 2007-04-11  Didier Verna  <didier@xemacs.org>
 
        New user option: message-signature-directory.

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 49d7266..ae962b9 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -1881,16 +1881,18 @@ this is a reply."
            ;; Translate obsolescent value.
            (cond
             ((eq element 'signature-file)
-             (if (and message-signature-directory
-                      ;; don't actually use the signature directory
-                      ;; if message-signature-file contains a path.
-                      (not (file-name-directory v)))
-                 (setq v (nnheader-concat message-signature-directory v)))
              (setq element 'signature
                    filep t))
             ((eq element 'x-face-file)
              (setq element 'x-face
                    filep t)))
+           ;; Post-processing for the signature posting-style:
+           (and (eq element 'signature) filep
+                message-signature-directory
+                ;; don't actually use the signature directory
+                ;; if message-signature-file contains a path.
+                (not (file-name-directory v))
+                (setq v (nnheader-concat message-signature-directory v)))
            ;; Get the contents of file elems.
            (when (and filep v)
              (setq v (with-temp-buffer