Typo

[gnus] / lisp / mml-smime.el

diff --git a/lisp/mml-smime.el b/lisp/mml-smime.el
index d0b2d63..427c538 100644 (file)
--- a/lisp/mml-smime.el
+++ b/lisp/mml-smime.el
@@ -30,7 +30,7 @@
 (require 'smime)
 
 (defun mml-smime-verify (handle ctl)
-  (with-current-buffer (mm-handle-original-buffer ctl)
+  (with-current-buffer (mm-handle-multipart-original-buffer ctl)
     ;; xxx modifies buffer -- noone else uses the buffer, so what the heck
     (goto-char (point-min))
     (insert (format "Content-Type: %s; " (mm-handle-media-type ctl)))