(smime-parse-attribute
(buffer-substring (point)(progn (end-of-line)(point))))))))
-(static-condition-case nil
- (directory-files nil nil nil nil nil)
- (wrong-number-of-arguments
- (defmacro smime-directory-files
- (directory &optional full match nosort files-only)
- (if files-only
- `(delq nil (mapcar
- (lambda (file)
- ,(if (eq files-only t)
- `(if (file-directory-p file) nil file)
- `(if (file-directory-p file) file nil)))
- (directory-files ,directory ,full ,match ,nosort)))
- `(directory-files ,directory ,full ,match ,nosort))))
- (wrong-type-argument
- (defalias 'smime-directory-files 'directory-files)))
-
(defsubst smime-find-certificate (attr)
- (let ((files (if (file-directory-p smime-certificate-directory)
- (delq nil (mapcar (lambda (file)
- (if (file-directory-p file) nil
- file))
- (directory-files
- smime-certificate-directory
- 'full)))
- nil)))
+ (let ((files
+ (and (file-directory-p smime-certificate-directory)
+ (delq nil (mapcar (lambda (file)
+ (if (file-directory-p file) nil
+ file))
+ (directory-files
+ smime-certificate-directory
+ 'full))))))
(catch 'found
(while files
(if (or (string-equal
(expand-file-name (read-file-name "Public key file: "))))
(args (list "-e" key-file)))
(smime-process-region start end smime-program args)
- (smime-process-when-success nil)))
+ (smime-process-when-success
+ (goto-char (point-min))
+ (delete-region (point-min) (progn
+ (re-search-forward "^$" nil t)
+ (1+ (point)))))))
;;;###autoload
(defun smime-decrypt-region (start end)
(args (list "-ds" key-file passphrase)))
(smime-process-region start end smime-program args)
(smime-process-when-success
+ (goto-char (point-min))
+ (delete-region (point-min) (progn
+ (re-search-forward "^$" nil t)
+ (1+ (point))))
(when smime-cache-passphrase
(smime-add-passphrase-cache hash passphrase)))))
the detached signature of the current region."
(let* ((basename (expand-file-name "smime" temporary-file-directory))
(orig-file (make-temp-name basename))
- (args (list "-qs" signature))
(orig-mode (default-file-modes)))
(unwind-protect
(progn
(set-default-file-modes 448)
- (write-region-as-binary start end orig-file)
- )
+ (write-region-as-binary start end orig-file))
(set-default-file-modes orig-mode))
(with-temp-buffer
(insert-file-contents-as-binary signature)