From: morioka Date: Tue, 5 May 1998 20:09:30 +0000 (+0000) Subject: Sync up with semi-1_4_0_9. X-Git-Tag: wemi-1_4_0~2 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a6503fa1a01a5962c60d63cecb58bf014ee6d5e0;p=elisp%2Fsemi.git Sync up with semi-1_4_0_9. --- diff --git a/ChangeLog b/ChangeLog index ef8b923..9349507 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,68 @@ +1998-05-05 MORIOKA Tomohiko + + * README.en (Required environment): Modify for FLIM 1.1.0. + + * SEMI-CFG: Modify error message for FLIM 1.1.0. + +1998-05-04 MORIOKA Tomohiko + + * semi-def.el: Abolish 'mime/find-file-function because it is not + used. + +1998-05-04 MORIOKA Tomohiko + + * TODO (keymap-prefix): done. + (mailcap support): done. + (Change 'mime-acting-condition to condition-tree format): done. + (Unify entity display specifications to 'mime-preview-condition): + done. + +1998-05-04 MORIOKA Tomohiko + + * NEWS: Add description for SEMI 1.4. + +1998-05-04 MORIOKA Tomohiko + + * mime-view.el: Abolish setting for tm-sh-scripts. + + * semi-setup.el: Abolish MUA depended signature setting. + + * mail-mime-setup.el: Move setting for 'mail-signature from + semi-setup.el. + +1998-05-04 MORIOKA Tomohiko + + * semi-setup.el: Use 'mime-add-condition to set up for mime-pgp. + + * mime-pgp.el: Abolish setting for 'mime-preview-condition and + mime-acting-condition. + + * semi-def.el (mime-condition-type-alist): New variable. + (mime-condition-mode-alist): New variable. + (mime-add-condition): New function. + +1998-05-04 MORIOKA Tomohiko + + * mime-view.el (mime-acting-condition): Use + 'ctree-set-calist-with-default to set up 'mime-method-to-save. + +1998-05-03 MORIOKA Tomohiko + + * mime-view.el (mime-acting-condition): Delete setting for + metamail. + +1998-05-03 MORIOKA Tomohiko + + * mime-play.el (mime-activate-mailcap-method): New function. + (mime-raw-play-entity): Use 'mime-activate-mailcap-method for + mailcap method. + + * mime-view.el (mime-acting-condition): Read mailcap. + +1998-05-03 MORIOKA Tomohiko + + * mailcap.el: Move mailcap.el to FLIM. + 1998-05-02 MORIOKA Tomohiko * mime-view.el (mime-view-announcement-for-message/partial): @@ -8,7 +73,7 @@ 1998-05-02 MORIOKA Tomohiko - * WEMI: Version 1.3.1 (-DÒfuna) was released.-A + * WEMI: Version 1.3.1 (-DÒfuna)-A was released. 1998-05-02 MORIOKA Tomohiko @@ -275,7 +340,7 @@ 1998-04-07 MORIOKA Tomohiko - * WEMI: Version 1.2.0 (T-Dòkyò) was released.-A + * WEMI: Version 1.2.0 (T-Dòkyò)-A was released. * README.en: Modify for WEMI. @@ -743,7 +808,7 @@ 1998-03-13 MORIOKA Tomohiko - * SEMI: Version 1.0.2 (Nonoichi-K-Dòdaimae) was released.-A + * SEMI: Version 1.0.2 (Nonoichi-K-Dòdaimae)-A was released. 1998-03-12 MORIOKA Tomohiko @@ -855,7 +920,7 @@ 1998-02-25 MORIOKA Tomohiko - * SEMI: Version 1.0.0 (Nukaj-Dþtaku-mae) was released.-A + * SEMI: Version 1.0.0 (Nukaj-Dþtaku-mae)-A was released. * SEMI-ELS: Remove mime-tar.el. @@ -992,7 +1057,7 @@ 1997-11-16 MORIOKA Tomohiko - * SEMI: Version 0.116 (D-Dòhòji) was released.-A + * SEMI: Version 0.116 (D-Dòhòji)-A was released. 1997-11-15 MORIOKA Tomohiko diff --git a/mailcap.el b/mailcap.el deleted file mode 100644 index 32aa278..0000000 --- a/mailcap.el +++ /dev/null @@ -1,191 +0,0 @@ -;;; mailcap.el --- mailcap parser - -;; Copyright (C) 1997,1998 Free Software Foundation, Inc. - -;; Author: MORIOKA Tomohiko -;; Created: 1997/6/27 -;; Keywords: mailcap, setting, configuration, MIME, multimedia - -;; This file is part of SEMI (Spadework for Emacs MIME Interfaces). - -;; This program is free software; you can redistribute it and/or -;; modify it under the terms of the GNU General Public License as -;; published by the Free Software Foundation; either version 2, or (at -;; your option) any later version. - -;; This program is distributed in the hope that it will be useful, but -;; WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -;; General Public License for more details. - -;; You should have received a copy of the GNU General Public License -;; along with GNU Emacs; see the file COPYING. If not, write to the -;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, -;; Boston, MA 02111-1307, USA. - -;;; Code: - -;;; @ comment -;;; - -(defsubst mailcap-skip-comment () - (let ((chr (char-after (point)))) - (when (and chr - (or (= chr ?\n) - (= chr ?#))) - (forward-line) - t))) - - -;;; @ token -;;; - -(defsubst mailcap-look-at-token () - (if (looking-at mime-token-regexp) - (let ((beg (match-beginning 0)) - (end (match-end 0))) - (goto-char end) - (buffer-substring beg end) - ))) - - -;;; @ typefield -;;; - -(defsubst mailcap-look-at-type-field () - (let ((type (mailcap-look-at-token))) - (if type - (if (eq (char-after (point)) ?/) - (progn - (forward-char) - (let ((subtype (mailcap-look-at-token))) - (if subtype - (cons (cons 'type (intern type)) - (unless (string= subtype "*") - (list (cons 'subtype (intern subtype))) - ))))) - (list (cons 'type (intern type))) - )))) - - -;;; @ field separator -;;; - -(defsubst mailcap-skip-field-separator () - (let ((ret (looking-at "\\([ \t]\\|\\\\\n\\)*;\\([ \t]\\|\\\\\n\\)*"))) - (when ret - (goto-char (match-end 0)) - t))) - - -;;; @ mtext -;;; - -(defsubst mailcap-look-at-schar () - (let ((chr (char-after (point)))) - (if (and (>= chr ? ) - (/= chr ?\;) - (/= chr ?\\) - ) - (prog1 - chr - (forward-char))))) - -(defsubst mailcap-look-at-qchar () - (let ((chr (char-after (point)))) - (when (eq chr ?\\) - (forward-char 2) - (char-before (point)) - ))) - -(defsubst mailcap-look-at-mtext () - (let ((beg (point))) - (while (or (mailcap-look-at-schar) - (mailcap-look-at-schar))) - (buffer-substring beg (point)) - )) - - -;;; @ field -;;; - -(defsubst mailcap-look-at-field () - (let ((token (mailcap-look-at-token))) - (if token - (if (looking-at "[ \t]*=[ \t]*") - (let ((value (progn - (goto-char (match-end 0)) - (mailcap-look-at-mtext)))) - (if value - (cons (intern token) value) - )) - (list (intern token)) - )))) - - -;;; @ mailcap entry -;;; - -(defun mailcap-look-at-entry () - (let ((type (mailcap-look-at-type-field))) - (if (and type (mailcap-skip-field-separator)) - (let ((view (mailcap-look-at-mtext)) - fields field) - (when view - (while (and (mailcap-skip-field-separator) - (setq field (mailcap-look-at-field)) - ) - (setq fields (cons field fields)) - ) - (nconc type - (list (cons 'view view)) - fields)))))) - - -;;; @ main -;;; - -(defun mailcap-parse-buffer (&optional buffer order) - "Parse BUFFER as a mailcap, and return the result. -If optional argument ORDER is a function, result is sorted by it. -If optional argument ORDER is not specified, result is sorted original -order. Otherwise result is not sorted." - (save-excursion - (if buffer - (set-buffer buffer)) - (goto-char (point-min)) - (let (entries entry) - (while (progn - (while (mailcap-skip-comment)) - (setq entry (mailcap-look-at-entry)) - ) - (setq entries (cons entry entries)) - (forward-line) - ) - (cond ((functionp order) (sort entries order)) - ((null order) (nreverse entries)) - (t entries) - )))) - -(defvar mailcap-file "~/.mailcap" - "*File name of user's mailcap file.") - -(defun mailcap-parse-file (&optional filename order) - "Parse FILENAME as a mailcap, and return the result. -If optional argument ORDER is a function, result is sorted by it. -If optional argument ORDER is not specified, result is sorted original -order. Otherwise result is not sorted." - (or filename - (setq filename mailcap-file)) - (with-temp-buffer - (insert-file-contents filename) - (mailcap-parse-buffer (current-buffer) order) - )) - - -;;; @ end -;;; - -(provide 'mailcap) - -;;; mailcap.el ends here