Mercurial > hg > xemacs-beta

comparison lisp/tm/tm-view.el @ 74:54cc21c15cbb r20-0b32

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b32
author cvs
date Mon, 13 Aug 2007 09:04:33 +0200
parents 131b0175ea99
children 0d2f883870bc
comparison
equal deleted inserted replaced
73:e2d7a37b7c8d 74:54cc21c15cbb
2 2
3 ;; Copyright (C) 1995,1996 Free Software Foundation, Inc. 3 ;; Copyright (C) 1995,1996 Free Software Foundation, Inc.
4 4
5 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp> 5 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
6 ;; Created: 1994/7/13 (1994/8/31 obsolete tm-body.el) 6 ;; Created: 1994/7/13 (1994/8/31 obsolete tm-body.el)
7 ;; Version: $Revision: 1.1.1.1 $ 7 ;; Version: $Revision: 1.1.1.2 $
8 ;; Keywords: mail, news, MIME, multimedia 8 ;; Keywords: mail, news, MIME, multimedia
9 9
10 ;; This file is part of tm (Tools for MIME). 10 ;; This file is part of tm (Tools for MIME).
11 11
12 ;; This program is free software; you can redistribute it and/or 12 ;; This program is free software; you can redistribute it and/or
40 40
41 ;;; @ version 41 ;;; @ version
42 ;;; 42 ;;;
43 43
44 (defconst mime-viewer/RCS-ID 44 (defconst mime-viewer/RCS-ID
45 "$Id: tm-view.el,v 1.1.1.1 1996/12/18 22:43:37 steve Exp $") 45 "$Id: tm-view.el,v 1.1.1.2 1996/12/21 20:50:43 steve Exp $")
46 46
47 (defconst mime-viewer/version (get-version-string mime-viewer/RCS-ID)) 47 (defconst mime-viewer/version (get-version-string mime-viewer/RCS-ID))
48 (defconst mime/viewer-version mime-viewer/version) 48 (defconst mime/viewer-version mime-viewer/version)
49 49
50 50
377 377
378 ;;; @@ following method 378 ;;; @@ following method
379 ;;; 379 ;;;
380 380
381 (defvar mime-viewer/following-method-alist nil) 381 (defvar mime-viewer/following-method-alist nil)
382
383 (defvar mime-viewer/following-required-fields-list
384 '("From"))
382 385
383 386
384 ;;; @@ X-Face 387 ;;; @@ X-Face
385 ;;; 388 ;;;
386 389
979 rcnum)) 982 rcnum))
980 (setq fields (std11-collect-field-names) 983 (setq fields (std11-collect-field-names)
981 rcnum (cdr rcnum)) 984 rcnum (cdr rcnum))
982 ) 985 )
983 ) 986 )
987 (let ((rest mime-viewer/following-required-fields-list))
988 (while rest
989 (let ((field-name (car rest)))
990 (or (std11-field-body field-name)
991 (insert
992 (format
993 (concat field-name
994 ": "
995 (save-excursion
996 (set-buffer the-buf)
997 (set-buffer mime::preview/mother-buffer)
998 (set-buffer mime::preview/article-buffer)
999 (std11-field-body field-name)
1000 )
1001 "\n")))
1002 ))
1003 (setq rest (cdr rest))
1004 ))
984 (mime/decode-message-header) 1005 (mime/decode-message-header)
985 ) 1006 )
986 (funcall (cdr (assq mode mime-viewer/following-method-alist)) 1007 (funcall (cdr (assq mode mime-viewer/following-method-alist))
987 new-buf) 1008 new-buf)
988 )))) 1009 ))))
1023 (let* ((pcl mime::preview/content-list) 1044 (let* ((pcl mime::preview/content-list)
1024 (p (point)) 1045 (p (point))
1025 (i (- (length pcl) 1)) 1046 (i (- (length pcl) 1))
1026 beg) 1047 beg)
1027 (catch 'tag 1048 (catch 'tag
1028 (while (>= i 0) 1049 (while (> i 0)
1029 (setq beg (mime::preview-content-info/point-min (nth i pcl))) 1050 (setq beg (mime::preview-content-info/point-min (nth i pcl)))
1030 (if (> p beg) 1051 (if (> p beg)
1031 (throw 'tag (goto-char beg)) 1052 (throw 'tag (goto-char beg))
1032 ) 1053 )
1033 (setq i (- i 1)) 1054 (setq i (- i 1))