;; Keywords: PGP, security, MIME, multimedia, mail, news
;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
;; Keywords: PGP, security, MIME, multimedia, mail, news
;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
(basename (expand-file-name "tm" mime-temp-directory))
(orig-file (make-temp-name basename))
(sig-file (concat orig-file ".sig"))
)
(save-excursion
(basename (expand-file-name "tm" mime-temp-directory))
(orig-file (make-temp-name basename))
(sig-file (concat orig-file ".sig"))
)
(save-excursion
- (setq str (buffer-substring
- (mime::content-info/point-min oinfo)
- (mime::content-info/point-max oinfo)
- ))
- (set-buffer (get-buffer-create mime/temp-buffer-name))
- (insert str)
+ (let ((p-min (mime::content-info/point-min oinfo))
+ (p-max (mime::content-info/point-max oinfo))
+ )
+ (set-buffer (get-buffer-create mime/temp-buffer-name))
+ (insert-buffer-substring raw-buf p-min p-max)
+ )
- (mime-show-echo-buffer)
- (setq str (buffer-substring
- (save-excursion
- (goto-char beg)
- (and (search-forward "\n\n")
- (match-end 0)))
- end))
- (set-buffer (setq kbuf (get-buffer-create mime/temp-buffer-name)))
- (insert str)
+ (let ((p-min (save-excursion
+ (goto-char beg)
+ (and (search-forward "\n\n")
+ (match-end 0))
+ )))
+ (set-buffer (setq kbuf (get-buffer-create mime/temp-buffer-name)))
+ (insert-buffer-substring raw-buf p-min end)
+ )
(mime-decode-region (point-min)(point-max) encoding)
(as-binary-output-file (write-file sig-file))
(or (mime::article/call-pgp-to-check-signature
(mime-decode-region (point-min)(point-max) encoding)
(as-binary-output-file (write-file sig-file))
(or (mime::article/call-pgp-to-check-signature