Lines Matching +defs:signature +defs:file
11 ;; This file is part of GNU Emacs.
24 ;; along with GNU Emacs; see the file COPYING. If not, write to the
34 ;; mh-utils.el. That will help prevent the loading of this file until
88 ["Insert Signature" mh-insert-signature t]
139 "\C-c\C-^" mh-insert-signature ;if no C-s
188 "\C-c\C-s" mh-insert-signature
215 " Signature: \\[mh-insert-signature]\n\n"
376 (let ((file-name buffer-file-name))
382 (mh-exec-cmd-output "whom" t file-name))
422 (insert-file-contents
423 (expand-file-name message (mh-expand-file-name folder)))
432 (defun mh-insert-signature (&optional file)
433 "Insert signature in message.
435 This command inserts your signature at the current cursor location.
437 By default, the text of your signature is taken from the file
438 \"~/.signature\". You can read from other sources by changing the
439 option `mh-signature-file-name'.
441 A signature separator (\"-- \") will be added if the signature block
442 does not contain one and `mh-signature-separator-flag' is on.
444 The hook `mh-insert-signature-hook' is run after the signature is
445 inserted. Hook functions may access the actual name of the file or the
446 function used to insert the signature with `mh-signature-file-name'.
448 The signature can also be inserted using Identities (see
451 In a program, you can pass in a signature FILE."
455 (let ((mh-signature-file-name (or file mh-signature-file-name))
461 ((mh-file-is-vcard-p mh-signature-file-name)
464 mh-signature-file-name
467 (file-name-nondirectory mh-signature-file-name)
468 "\" [VCard] " (expand-file-name mh-signature-file-name))))
476 (cond ((null mh-signature-file-name))
477 ((and (stringp mh-signature-file-name)
478 (file-readable-p mh-signature-file-name))
479 (insert-file-contents mh-signature-file-name))
480 ((functionp mh-signature-file-name)
481 (funcall mh-signature-file-name)))))
484 (run-hooks 'mh-insert-signature-hook))
486 (when (and (not (mh-file-is-vcard-p mh-signature-file-name))
487 mh-signature-separator-flag
489 (not (mh-signature-separator-p)))
494 (insert mh-signature-separator))
496 (message "No signature found")))))
616 This command will prompt you for the FOLDER name in which to file
908 (defun mh-file-is-vcard-p (file)
911 (and (stringp file)
912 (file-exists-p file)
913 (or (and (not (mh-have-file-command))
914 (not (null (string-match "\.vcf$" file))))
915 (string-equal "text/x-vcard" (mh-file-mime-type file))))))