From d9b87749fdc2ba6612351af5cb8d8ebf43945a21 Mon Sep 17 00:00:00 2001 From: morioka Date: Sat, 15 Mar 1997 20:51:02 +0000 Subject: [PATCH] (mime-view-follow-content): Abolish unused variables `f', `mid', `subj', `reply-to', `cc', `to', `from', `he' and `hb'. --- mime-view.el | 12 +++++------- 1 file changed, 5 insertions(+), 7 deletions(-) diff --git a/mime-view.el b/mime-view.el index b7422ab..6d937b1 100644 --- a/mime-view.el +++ b/mime-view.el @@ -6,7 +6,7 @@ ;; Created: 1994/7/13 ;; Renamed: 1994/8/31 from tm-body.el ;; Renamed: 1997/02/19 from tm-view.el -;; Version: $Revision: 0.22 $ +;; Version: $Revision: 0.23 $ ;; Keywords: MIME, multimedia, mail, news ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces). @@ -40,7 +40,7 @@ ;;; (defconst mime-view-RCS-ID - "$Id: mime-view.el,v 0.22 1997-03-10 13:44:24 morioka Exp $") + "$Id: mime-view.el,v 0.23 1997-03-15 20:51:02 morioka Exp $") (defconst mime-view-version (get-version-string mime-view-RCS-ID)) @@ -950,9 +950,7 @@ button-2 Move to point under the mouse cursor new-buf (the-buf (current-buffer)) (a-buf mime::preview/article-buffer) - (hb (mime::content-info/point-min cinfo)) - (he (mime::content-info/point-max cinfo)) - fields from to cc reply-to subj mid f) + fields) (save-excursion (set-buffer (setq new-buf (get-buffer-create new-name))) (erase-buffer) @@ -982,8 +980,8 @@ button-2 Move to point under the mouse cursor (concat "^" (apply (function regexp-or) fields) ":") "")))) - (if (string-equal (mime::content-info/type ci) - "message/rfc822") + (if (string= (mime::content-info/type ci) + "message/rfc822") nil (if str (insert str) -- 1.7.10.4