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
166 ("application/pgp-signature" ignore identity)
167 ("application/x-pkcs7-signature" ignore identity)
168 ("application/pkcs7-signature" ignore identity)
238 it into a file and then run some program to open it. It is
254 usually reads the file \"/etc/mailcap\"."
346 (file-name-as-directory (or mh-mime-save-parts-directory
365 attachment in a file."
395 (read-file-name "Store in directory: " nil nil t nil))
399 (read-file-name (format
409 (if (not (file-directory-p directory))
419 (expand-file-name command mh-progs) nil t nil
557 (mh-signature-highlight))))
670 (equal type "application/pgp-signature"))
679 (mh-signature-highlight handle))
742 (mh-signature-highlight handle))
804 (not (mh-signature-separator-p)))))))
806 (defun mh-signature-highlight (&optional handle)
807 "Highlight message signature in HANDLE.
809 being used to highlight the signature in a MIME part."
822 (overlay-put ov 'face 'mh-show-signature)
826 'face 'mh-show-signature))))))
932 ((string-match "Failed" info) ;Decryption failed or signature invalid
1231 ;; Rationale: mml-attach-file constructs a malformed composition
1233 (mml-attach-file (format "%s%s/%d"
1236 (mml-attach-file (format "%s%s/%d"
1277 "Add tag to include a file such as an image or sound.
1290 (mh-mml-attach-file "inline")
1291 (mh-mml-attach-file))
1292 (call-interactively 'mh-mh-attach-file)))
1294 (defun mh-mml-attach-file (&optional disposition)
1295 "Add a tag to insert a MIME message part from a file.
1301 This is basically `mml-attach-file' from Gnus, modified such that a prefix
1304 (let* ((file (mml-minibuffer-read-file "Attach file: "))
1305 (type (mh-minibuffer-read-type file))
1309 (mml-insert-empty-tag 'part 'type type 'filename file
1312 (defun mh-mh-attach-file (filename type description attributes)
1313 "Add a tag to insert a MIME message part from a file.
1320 (interactive (let ((filename (mml-minibuffer-read-file "Attach file: ")))
1327 (file-name-nondirectory filename)
1333 "Insert an MH-style directive to insert a file.
1334 The file specified by FILENAME is encoded as TYPE. An optional
1346 (insert "] " (expand-file-name filename))
1351 "Add tag to include anonymous ftp reference to a file.
1368 "Add tag to include anonymous ftp reference to a compressed tar file.
1370 In addition to retrieving the file via anonymous \"ftp\" as per
1371 the command \\[mh-mh-compose-anon-ftp], the file will also be
1396 ("file") ; RFC1738 Host-specific file names
1400 ("local-file") ; RFC2046 Local file access
1417 "Add tag to refer to a remote file.
1448 (insert "; name=" (file-name-nondirectory filename))
1449 (let ((directory (file-name-directory filename)))
1493 buffer-file-name))
1495 (mh-exec-cmd-error (format "mhdraft=%s" buffer-file-name)
1498 buffer-file-name)))
1520 It does this by reverting to a backup file. You are prompted to
1524 (if (null buffer-file-name)
1525 (error "Buffer does not seem to be associated with any file"))
1527 backup-file)
1529 (not (file-exists-p
1530 (setq backup-file
1531 (concat (file-name-directory buffer-file-name)
1533 (file-name-nondirectory buffer-file-name)
1537 (error "Backup file for %s no longer exists" buffer-file-name))
1539 (yes-or-no-p (format "Revert buffer from file %s? "
1540 backup-file))
1544 (insert-file-contents backup-file))
1545 (after-find-file nil)))
1699 If the \"file\" command exists and recognizes the given file,
1705 (mm-default-file-encoding filename)
1707 (probed-type (mh-file-mime-type filename))
1718 (defun mh-file-mime-type (filename)
1719 "Return MIME type of FILENAME from file command.
1720 Returns nil if file command not on system."
1722 ((not (mh-have-file-command))
1723 nil) ;no file command, exit now
1724 ((not (and (file-exists-p filename)
1725 (file-readable-p filename)))
1726 nil) ;no file or not readable, ditto
1733 (call-process "file" nil '(t nil) nil "-b" "-i"
1734 (expand-file-name filename))
1738 (mh-file-mime-type-substitute (match-string 0) filename)))
1741 (defvar mh-file-mime-type-substitutions
1757 "Substitutions to make for Content-Type returned from file command.
1758 The first element is the Content-Type returned by the file command.
1759 The second element is a regexp matching the file name, usually the
1763 (defun mh-file-mime-type-substitute (content-type filename)
1765 Substitutions are made from the `mh-file-mime-type-substitutions'
1767 (let ((subst mh-file-mime-type-substitutions)
1780 (defvar mh-have-file-command 'undefined
1781 "Cached value of function `mh-have-file-command'.
1783 initialized. Always use the command `mh-have-file-command'.")
1786 (defun mh-have-file-command ()
1787 "Return t if 'file' command is on the system.
1788 'file -i' is used to get MIME type of composition insertion."
1789 (when (eq mh-have-file-command 'undefined)
1790 (setq mh-have-file-command
1792 (executable-find "file") ; file command exists
1794 (zerop (call-process "file" nil nil nil "-i" "-b"
1795 (expand-file-name "inc" mh-progs))))))
1796 mh-have-file-command)