X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=epg-pgp50i.el;h=23416709e3cbeb7659e5d4679d580fdbb6ba1eba;hb=59b227deceb57a37a91af9cc4edcb5039f0c0b3b;hp=c9a5bcc96ceb2b7f4b92f2526c5f70d96168af7e;hpb=31321ba8ad1dfde4148e651ef0540fd29324a178;p=elisp%2Fepg.git

diff --git a/epg-pgp50i.el b/epg-pgp50i.el
index c9a5bcc..2341670 100644
--- a/epg-pgp50i.el
+++ b/epg-pgp50i.el
@@ -236,36 +236,7 @@
   (around epg-pgp50i activate)
   (if (eq (epg-context-protocol (ad-get-arg 0)) 'CMS)
       ad-do-it
-    (let ((context (ad-get-arg 0))
-	  (plain (ad-get-arg 1))
-	  (mode (ad-get-arg 2)))
-      (epg-context-set-operation context 'sign)
-      (epg-context-set-result context nil)
-      (unless (memq mode '(t detached nil normal))
-	(epg-context-set-armor context t))
-      (epg-pgp50i--start context
-			 epg-pgp50i-pgps-program
-			 (append (list (if (memq mode '(t detached))
-					   "-b"))
-				 (apply #'nconc
-					(mapcar
-					 (lambda (signer)
-					   (list "-u"
-						 (epg-sub-key-id
-				      (car (epg-key-sub-key-list signer)))))
-			     (epg-context-signers context)))
-		     (if (epg-data-file plain)
-			 (list (epg-data-file plain)))))
-  ;; `gpgsm' does not read passphrase from stdin, so waiting is not needed.
-  (unless (eq (epg-context-protocol context) 'CMS)
-    (epg-wait-for-status context '("BEGIN_SIGNING")))
-  (when (epg-data-string plain)
-    (if (eq (process-status (epg-context-process context)) 'run)
-	(process-send-string (epg-context-process context)
-			     (epg-data-string plain)))
-    (if (eq (process-status (epg-context-process context)) 'run)
-	(process-send-eof (epg-context-process context)))))
-    ))
+    (error "Not implemented yet")))
 
 (defadvice epg-start-encrypt
   (around epg-pgp50i activate)