From b7c482734110c3b87e1a2c5c8cbce8be5de363ba Mon Sep 17 00:00:00 2001 From: morioka Date: Sat, 15 Mar 1997 21:04:32 +0000 Subject: [PATCH] (mime-article/view-application/pgp, mime-article/add-pgp-keys): Abolish unused local variable `cur-buf'. --- mime-pgp.el | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/mime-pgp.el b/mime-pgp.el index 8090cc6..a268888 100644 --- a/mime-pgp.el +++ b/mime-pgp.el @@ -5,7 +5,7 @@ ;; Author: MORIOKA Tomohiko ;; Created: 1995/12/7 ;; Renamed: 1997/2/27 from tm-pgp.el -;; Version: $Id: mime-pgp.el,v 0.5 1997-03-15 19:47:27 morioka Exp $ +;; Version: $Id: mime-pgp.el,v 0.6 1997-03-15 21:04:32 morioka Exp $ ;; Keywords: mail, news, MIME, multimedia, PGP, security ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces). @@ -50,7 +50,6 @@ (defun mime-article/view-application/pgp (beg end cal) (let* ((cnum (mime-article/point-content-number beg)) - (cur-buf (current-buffer)) (p-win (or (get-buffer-window mime::article/preview-buffer) (get-largest-window))) (new-name (format "%s-%s" (buffer-name) cnum)) @@ -279,7 +278,6 @@ It should be ISO 639 2 letter language code such as en, ja, ...") (defun mime-article/add-pgp-keys (beg end cal) (let* ((cnum (mime-article/point-content-number beg)) - (cur-buf (current-buffer)) (new-name (format "%s-%s" (buffer-name) cnum)) (mother mime::article/preview-buffer) (charset (cdr (assoc "charset" cal))) -- 1.7.10.4