pgg-pgp5

[中川 誠]

中川＠コンパック(株)です。

pgg-pgp.el へのパッチに漏れがありました。パッチを手で修正したのでうまく
あたらないかもしれませんが、意図は汲んでいただけると思います。

ごめんなさい。

-------------- next part --------------
--- pgg-pgp.el.orig	Fri Nov 26 15:29:10 1999
+++ pgg-pgp.el	Tue Jan 11 03:24:07 2000
@@ -125,7 +125,7 @@
     (with-current-buffer (get-buffer-create pgg-output-buffer)
       (buffer-disable-undo)
       (erase-buffer)
-      (apply #'call-process pgg-pgp-program nil t args)
+      (apply #'call-process pgg-pgp-program nil t nil args)
       (goto-char (point-min))
       (cond
        ((re-search-forward "^pub\\s +[0-9]+/" nil t);PGP 2.*
@@ -204,7 +204,11 @@
 				   start end &optional signature)
   (let* ((basename (expand-file-name "pgg" temporary-file-directory))
 	 (orig-file (make-temp-name basename))
-	 (args '("+verbose=1" "+batchmode" "+language=us"))
- 	 (orig-mode (default-file-modes)))
+	 (args
+	  (append
+	   '("+verbose=1" "+batchmode" "+language=us")
+	   pgg-pgp-extra-args))
+ 	 (orig-mode (default-file-modes))
+	 exit-status)
     (unwind-protect
 	(progn
@@ -216,8 +220,16 @@
       (copy-file signature (setq signature (concat orig-file ".asc")))
       (setq args (append args (list signature orig-file)))
       )
-    (pgg-pgp-process-region (point-min)(point-max) nil
-			    pgg-pgp-program args)
+    (with-current-buffer (get-buffer-create pgg-output-buffer)
+      (buffer-disable-undo)
+      (erase-buffer)
+      (setq exit-status
+	    (apply #'call-process pgg-pgp-program nil t nil args))
+
+      (pgg-convert-lbt-region (point-min)(point-max) 'LF)
+
+      (if (= 127 exit-status)
+	  (error "%s could not be found" program)))
     (delete-file orig-file)
     (if signature (delete-file signature))
     (pgg-process-when-success

-------------- next part --------------
-- 
/***   Compaq Computer K.K.                        ***/
/***   Network and Systems Integration Servieces   ***/
/***   Nakagawa, Makoto（中川　誠）                ***/
/*  F6 E1 41 25 49 DF A8 82  D4 94 4F 0C 95 6B D7 57 */
-------------- next part --------------
テキスト形式以外の添付ファイルを保管しました...
ファイル名: 無し
型:         application/pgp-signature
サイズ:     366 バイト
説明:       無し
URL:        <http://lists.chise.org/pipermail/emacs-mime-ja/attachments/20000111/b866f73c/attachment.pgp>