(gnus-configure-posting-styles): Use it.
(gnus-configure-posting-styles): Remove trailing newspaces.
+2002-02-06 Lars Magne Ingebrigtsen <larsi@gnus.org>
+
+ * gnus-msg.el (gnus-posting-styles): Add x-face-file.
+ (gnus-configure-posting-styles): Use it.
+ (gnus-configure-posting-styles): Remove trailing newspaces.
+
2002-02-06 ShengHuo ZHU <zsh@cs.rochester.edu>
* gnus-sum.el (gnus-articles-to-read): Fetch all if the predicate
(const signature-file)
(const organization)
(const address)
+ (const x-face-file)
(const name)
(const body)
(symbol)
((listp value)
(eval value))))
;; Translate obsolescent value.
- (when (eq element 'signature-file)
+ (cond
+ ((eq element 'signature-file)
(setq element 'signature
filep t))
+ ((eq element 'x-face-file)
+ (setq element 'x-face
+ filep t)))
;; Get the contents of file elems.
(when (and filep v)
(setq v (with-temp-buffer
(insert-file-contents v)
+ (goto-char (point-max))
+ (while (bolp)
+ (delete-char -1))
(buffer-string))))
(setq results (delq (assoc element results) results))
(push (cons element v) results))))