projects / elisp / semi.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 2157b66)
* mime-view.el (mime-displya-application/x-postpet):
authorsokumura <sokumura>
Thu, 8 Apr 1999 13:52:36 +0000 (13:52 +0000)
committersokumura <sokumura>
Thu, 8 Apr 1999 13:52:36 +0000 (13:52 +0000)
Adding pet's birth day and mail sent date

ChangeLog patch | blob | history
mime-view.el patch | blob | history

diff --git a/ChangeLog b/ChangeLog
index d38c99c..2bb53d2 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+1999-04-08  Shigeru OKUMURA <sokumura@jaist.ac.jp>
+
+       * mime-view.el (mime-displya-application/x-postpet):
+       Adding pet's birth day and mail sent date
+       
 1999-04-07  Tanaka Akira  <akr@jaist.ac.jp>
 
        * mime-view.el (mime-display-application/x-postpet): New function.
@@ -205,7 +210,7 @@
 \f
 1999-01-21  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
-       * SEMI: Version 1.13.0 (Matt\e-Dò)\e-A released.
+       * SEMI: Version 1.13.0 (Matt\e.D\8eò) released.
 
 1999-01-21  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
@@ -703,7 +708,7 @@
 \f
 1998-07-08  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
-       * REMI: Version 1.8.3 (Ecch\e-Dþ-Nakagawa)\e-A released.
+       * REMI: Version 1.8.3 (Ecch\8eþ-Nakagawa) released.
 
        * mime-play.el (mime-delq-null-situation): Add new optional
        argument `ignored-value'.
@@ -732,7 +737,7 @@
 \f
 1998-07-08  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
-       * REMI: Version 1.8.2 (N\e-Dòmachi)\e-A released.
+       * REMI: Version 1.8.2 (N\8eòmachi) released.
 
 1998-07-07  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
@@ -851,7 +856,7 @@
 \f
 1998-06-28  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
-       * REMI: Version 1.8.0 (Ecch\e-Dþ-Kokubu)\e-A released.
+       * REMI: Version 1.8.0 (Ecch\8eþ-Kokubu) released.
 
 1998-06-26  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
@@ -1687,7 +1692,7 @@
 \f
 1998-06-04  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
-       * SEMI: Version 1.5.0 (Nishi-Ny\e-Dþzen)\e-A released.
+       * SEMI: Version 1.5.0 (Nishi-Ny\8eþzen) released.
 
        * README.en (Required environment): Modify for FLIM 1.3.0.
 
@@ -1739,7 +1744,7 @@
 \f
 1998-06-01  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
-       * SEMI: Version 1.4.6 (Ny\e-Dþzen)\e-A released.
+       * SEMI: Version 1.4.6 (Ny\8eþzen) released.
 
 1998-05-28  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
@@ -1952,7 +1957,7 @@
 \f
 1998-05-15  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
-       * SEMI: Version 1.4.4 (Ecch\e-Dþ-Miyazaki)\e-A released.
+       * SEMI: Version 1.4.4 (Ecch\8eþ-Miyazaki) released.
 
        * mime-play.el (mime-mailcap-method-filename-alist): New variable.
        (mime-mailcap-method-sentinel): New function.
@@ -2078,7 +2083,7 @@
 \f
 1998-05-06  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
-       * SEMI: Version 1.4.1 (\e-DÒmi)\e-A released.
+       * SEMI: Version 1.4.1 (\8eÒmi) released.
 
        * README.en (Required environment): Modify for FLIM 1.2.0.
 
@@ -2238,7 +2243,7 @@
 \f
 1998-04-25  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
-       * SEMI: Version 1.3.2 (N\e-Dò)\e-A was released.
+       * SEMI: Version 1.3.2 (N\8eò) was released.
 
        * mime-edit.el (mime-edit-mode-entity-prefix): New variable.
        (mime-edit-mode-entity-map): New variable.
@@ -2893,7 +2898,7 @@
 \f
 1998-03-13  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
-       * SEMI: Version 1.0.2 (Nonoichi-K\e-Dòdaimae)\e-A was released.
+       * SEMI: Version 1.0.2 (Nonoichi-K\8eòdaimae) was released.
 
 1998-03-12  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
@@ -2976,7 +2981,7 @@
        * mime-file.el: Rename `mime-article/extract-file' ->
        `mime-extract-current-entity'.
 
-1998-03-03  François Pinard   <pinard@iro.umontreal.ca>
+1998-03-03  Fran\e.A\8eçois Pinard   <pinard@iro.umontreal.ca>
 
        * mime-edit.el (mime-edit-insert-signature): Function
        `mime-edit-insert-tag' is sometimes called with more arguments
@@ -3005,7 +3010,7 @@
 \f
 1998-02-25  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
-       * SEMI: Version 1.0.0 (Nukaj\e-Dþtaku-mae)\e-A was released.
+       * SEMI: Version 1.0.0 (Nukaj\e.D\8eþtaku-mae) was released.
 
        * SEMI-ELS: Remove mime-tar.el.
 
@@ -3142,14 +3147,14 @@
 \f
 1997-11-16  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
-       * SEMI: Version 0.116 (D\e-Dòhòji)\e-A was released.
+       * SEMI: Version 0.116 (D\8eòh\8eòji) was released.
 
 1997-11-15  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
        * mime-view.el, mime-pgp.el, mime-partial.el: Rename
        `mime::article/content-info' -> `mime-raw-content-info'.
 
-1997-11-11  François Pinard   <pinard@iro.umontreal.ca>
+1997-11-11  Fran\e.A\8eçois Pinard   <pinard@iro.umontreal.ca>
 
        * 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 (file)
--- 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