From: yamaoka Date: Wed, 2 Dec 1998 02:38:48 +0000 (+0000) Subject: Sync up with the latest semi-1_12. X-Git-Tag: wemi-199812021900 X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=cb6f7f571c54594337a8b090965f2b54ebe6b164;p=elisp%2Fsemi.git Sync up with the latest semi-1_12. --- diff --git a/ChangeLog b/ChangeLog index b52865a..0a095e0 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,16 @@ +1998-11-30 MORIOKA Tomohiko + + * mime-edit.el (eliminate-top-spaces): New function (moved from + mime-def.el of FLIM). + +1998-11-17 Kazuhiro Ohta + + * mime-partial.el + (mime-combine-message/partial-pieces-automatically): Fix + DOC-string. + + * mime-view.el (mime-view-buffer): Fix DOC-string. + 1998-11-25 MORIOKA Tomohiko * NEWS (Changes in SEMI 1.11): New section. diff --git a/VERSION b/VERSION index 1d92e23..e22bf9a 100644 --- a/VERSION +++ b/VERSION @@ -71,7 +71,7 @@ 1.10.1 Morimoto $(B?9K\(B 1.10.2 Higashi-Kanazawa $(BEl6bBt(B 1.11.0 Kanazawa $(B6bBt(B ; <=> $(BKLN&E4F;(B $(BKLE46bBt(B -1.11.1 Nishi-Kanazawa $(B@>6bBt(B ; <=> $(BKLN&E4F;(B $(B?7@>6bBt(B +1.12.0 Nishi-Kanazawa $(B@>6bBt(B ; <=> $(BKLN&E4F;(B $(B?7@>6bBt(B ------- (JR) Nonoichi $(BLn!9;T(B : : : ------- Tsuruga $(BFX2l(B ; = JR $(B>.IM@~(B @@ -132,7 +132,7 @@ 1.10.1 Kambara $(B3w86(B 1.10.2 Yui $(BM3Hf(B 1.11.0 Okitsu $(B6=DE(B -1.11.1 Shimizu $(B@6?e(B +1.12.0 Shimizu $(B@6?e(B ------ Kusanagi $(BApFe(B ------ Shizuoka $(B@E2,(B ------ Abekawa $(B0BG\@n(B diff --git a/mime-edit.el b/mime-edit.el index 873c5bf..56ee40b 100644 --- a/mime-edit.el +++ b/mime-edit.el @@ -2589,6 +2589,12 @@ Content-Type: message/partial; id=%s; number=%d; total=%d\n%s\n" "\\):") "Regexp for deleted header fields when `mime-edit-again' is called.") +(defsubst eliminate-top-spaces (string) + "Eliminate top sequence of space or tab in STRING." + (if (string-match "^[ \t]+" string) + (substring string (match-end 0)) + string)) + (defun mime-edit-decode-multipart-in-buffer (content-type not-decode-text) (let* ((subtype (mime-content-type-subtype content-type)) (boundary (mime-content-type-parameter content-type "boundary")) diff --git a/mime-partial.el b/mime-partial.el index e085eab..14b3ff9 100644 --- a/mime-partial.el +++ b/mime-partial.el @@ -30,9 +30,7 @@ (defun mime-combine-message/partial-pieces-automatically (entity situation) "Internal method for mime-view to combine message/partial messages -automatically. This function refers variable -`mime-request-partial-message-method-alist' to select function to display -partial messages using mime-view." +automatically." (interactive) (let* ((id (cdr (assoc "id" situation))) (target (cdr (assq 'major-mode situation))) diff --git a/mime-view.el b/mime-view.el index 1892847..f3c2577 100644 --- a/mime-view.el +++ b/mime-view.el @@ -939,7 +939,7 @@ to it. If it is a function, it will be bound as default binding of keymap of MIME-View mode. Optional argument REPRESENTATION-TYPE is representation-type of message. It must be nil, `binary' or `cooked'. If it is nil, -`binary' is used as default." +`cooked' is used as default." (interactive) (or raw-buffer (setq raw-buffer (current-buffer))) diff --git a/semi-def.el b/semi-def.el index ed288bd..14edeb6 100644 --- a/semi-def.el +++ b/semi-def.el @@ -30,7 +30,7 @@ (require 'custom) -(defconst mime-user-interface-product ["WEMI" (1 11 1) "Shimizu"] +(defconst mime-user-interface-product ["WEMI" (1 12 0) "Shimizu"] "Implementation name, version name and numbers of MIME-kernel package.") (autoload 'mule-caesar-region "mule-caesar"