From: sokumura Date: Thu, 8 Apr 1999 13:52:36 +0000 (+0000) Subject: * mime-view.el (mime-displya-application/x-postpet): X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e64471b789cc34f297e97a8b70dff50360b63de9;p=elisp%2Fsemi.git * mime-view.el (mime-displya-application/x-postpet): Adding pet's birth day and mail sent date --- diff --git a/ChangeLog b/ChangeLog index d38c99c..2bb53d2 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +1999-04-08 Shigeru OKUMURA + + * mime-view.el (mime-displya-application/x-postpet): + Adding pet's birth day and mail sent date + 1999-04-07 Tanaka Akira * mime-view.el (mime-display-application/x-postpet): New function. @@ -205,7 +210,7 @@ 1999-01-21 MORIOKA Tomohiko - * SEMI: Version 1.13.0 (Matt-Dò)-A released. + * SEMI: Version 1.13.0 (Matt.DŽò) released. 1999-01-21 MORIOKA Tomohiko @@ -703,7 +708,7 @@ 1998-07-08 MORIOKA Tomohiko - * REMI: Version 1.8.3 (Ecch-Dþ-Nakagawa)-A released. + * REMI: Version 1.8.3 (EcchŽþ-Nakagawa) released. * mime-play.el (mime-delq-null-situation): Add new optional argument `ignored-value'. @@ -732,7 +737,7 @@ 1998-07-08 MORIOKA Tomohiko - * REMI: Version 1.8.2 (N-Dòmachi)-A released. + * REMI: Version 1.8.2 (NŽòmachi) released. 1998-07-07 MORIOKA Tomohiko @@ -851,7 +856,7 @@ 1998-06-28 MORIOKA Tomohiko - * REMI: Version 1.8.0 (Ecch-Dþ-Kokubu)-A released. + * REMI: Version 1.8.0 (EcchŽþ-Kokubu) released. 1998-06-26 MORIOKA Tomohiko @@ -1687,7 +1692,7 @@ 1998-06-04 MORIOKA Tomohiko - * SEMI: Version 1.5.0 (Nishi-Ny-Dþzen)-A released. + * SEMI: Version 1.5.0 (Nishi-NyŽþzen) released. * README.en (Required environment): Modify for FLIM 1.3.0. @@ -1739,7 +1744,7 @@ 1998-06-01 MORIOKA Tomohiko - * SEMI: Version 1.4.6 (Ny-Dþzen)-A released. + * SEMI: Version 1.4.6 (NyŽþzen) released. 1998-05-28 MORIOKA Tomohiko @@ -1952,7 +1957,7 @@ 1998-05-15 MORIOKA Tomohiko - * SEMI: Version 1.4.4 (Ecch-Dþ-Miyazaki)-A released. + * SEMI: Version 1.4.4 (EcchŽþ-Miyazaki) released. * mime-play.el (mime-mailcap-method-filename-alist): New variable. (mime-mailcap-method-sentinel): New function. @@ -2078,7 +2083,7 @@ 1998-05-06 MORIOKA Tomohiko - * SEMI: Version 1.4.1 (-DÒmi)-A released. + * SEMI: Version 1.4.1 (ŽÒmi) released. * README.en (Required environment): Modify for FLIM 1.2.0. @@ -2238,7 +2243,7 @@ 1998-04-25 MORIOKA Tomohiko - * SEMI: Version 1.3.2 (N-Dò)-A was released. + * SEMI: Version 1.3.2 (NŽò) was released. * mime-edit.el (mime-edit-mode-entity-prefix): New variable. (mime-edit-mode-entity-map): New variable. @@ -2893,7 +2898,7 @@ 1998-03-13 MORIOKA Tomohiko - * SEMI: Version 1.0.2 (Nonoichi-K-Dòdaimae)-A was released. + * SEMI: Version 1.0.2 (Nonoichi-KŽòdaimae) was released. 1998-03-12 MORIOKA Tomohiko @@ -2976,7 +2981,7 @@ * mime-file.el: Rename `mime-article/extract-file' -> `mime-extract-current-entity'. -1998-03-03 François Pinard +1998-03-03 Fran.AŽçois Pinard * mime-edit.el (mime-edit-insert-signature): Function `mime-edit-insert-tag' is sometimes called with more arguments @@ -3005,7 +3010,7 @@ 1998-02-25 MORIOKA Tomohiko - * SEMI: Version 1.0.0 (Nukaj-Dþtaku-mae)-A was released. + * SEMI: Version 1.0.0 (Nukaj.DŽþtaku-mae) was released. * SEMI-ELS: Remove mime-tar.el. @@ -3142,14 +3147,14 @@ 1997-11-16 MORIOKA Tomohiko - * SEMI: Version 0.116 (D-Dòhòji)-A was released. + * SEMI: Version 0.116 (DŽòhŽòji) was released. 1997-11-15 MORIOKA Tomohiko * mime-view.el, mime-pgp.el, mime-partial.el: Rename `mime::article/content-info' -> `mime-raw-content-info'. -1997-11-11 François Pinard +1997-11-11 Fran.AŽçois Pinard * mime-edit.el: Modify space in prompt and removespurious trailing spaces in the files. (cf. [tm-en:1507]) diff --git a/mime-view.el b/mime-view.el index 41e8abe..00e5685 100644 --- a/mime-view.el +++ b/mime-view.el @@ -550,17 +550,75 @@ Each elements are regexp of field-name.") (narrow-to-region (point-max)(point-max)) (let ((contents (string-as-unibyte (mime-entity-content entity))) (p 0) l - petname owner pettype from) - (setq p (+ p 30)) + petname owner pettype from + carryingcount sentyear sentmonth sentday + petbirthyear petbirthmonth petbirthday + ) + (setq p (+ p 4)) + (setq carryingcount + (+ ( char-int (aref contents (1+ (1+ (1+ p))))) + (* 256 (char-int (aref contents (1+ (1+ p))))) + (* 256 256 (char-int (aref contents (1+ p)))) + (* 256 256 256 (char-int (aref contents p))) + ) + ) + (setq p (+ p 4)) + (setq p (+ p 8)) + (setq sentyear + (+ ( char-int (aref contents (1+ p))) + (* 256 (char-int (aref contents p))) + ) + ) + (setq p (+ p 2)) + (setq sentmonth + (+ ( char-int (aref contents (1+ p))) + (* 256 (char-int (aref contents p))) + ) + ) + (setq p (+ p 2)) + (setq sentday + (+ ( char-int (aref contents (1+ p))) + (* 256 (char-int (aref contents p))) + ) + ) + (setq p (+ p 2)) + (setq p (+ p 8)) (setq petname (decode-mime-charset-string (substring contents (1+ p) (setq p (+ p 1 (char-int (aref contents p))))) 'shift_jis)) (setq owner (decode-mime-charset-string (substring contents (1+ p) (setq p (+ p 1 (char-int (aref contents p))))) 'shift_jis)) (setq pettype (substring contents p (setq p (+ p 4)))) - (setq p (+ p 78)) + (setq p (+ p 64)) + (setq petbirthyear + (+ ( char-int (aref contents (1+ p))) + (* 256 (char-int (aref contents p))) + ) + ) + (setq p (+ p 2)) + (setq petbirthmonth + (+ ( char-int (aref contents (1+ p))) + (* 256 (char-int (aref contents p))) + ) + ) + (setq p (+ p 2)) + (setq petbirthday + (+ ( char-int (aref contents (1+ p))) + (* 256 (char-int (aref contents p))) + ) + ) + (setq p (+ p 2)) + (setq p (+ p 8)) (setq from (substring contents (1+ p) (setq p (+ p 1 (char-int (aref contents p)))))) (insert "Petname: " petname "\n" "Owner: " owner "\n" "Pettype: " pettype "\n" - "From: " from "\n") + "From: " from "\n" + "CarryingCount: " (int-to-string carryingcount) "\n" + "SentYaer: " (int-to-string sentyear) "\n" + "SentMonth: " (int-to-string sentmonth) "\n" + "Sentday: " (int-to-string sentday) "\n" + "PetbirthYear: " (int-to-string petbirthyear) "\n" + "PetbirthMonth: " (int-to-string petbirthmonth) "\n" + "PetbirthDay: " (int-to-string petbirthday) "\n" + ) (run-hooks 'mime-display-application/x-postpet-hook)))) (defvar mime-view-announcement-for-message/partial