From: Lars Magne Ingebrigtsen <larsi@quimbies.gnus.org>
Date: Sun, 26 Sep 2010 03:27:36 +0000 (+0200)
Subject: Put back mml2015-gpg-pretty-print-fpr, which is used.
X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=827ece90da58546bdf9b61f26bb54c3a4f473d52

Put back mml2015-gpg-pretty-print-fpr, which is used.
---

diff --git a/lisp/mml2015.el b/lisp/mml2015.el
index f966e5e5e..391517f38 100644
--- a/lisp/mml2015.el
+++ b/lisp/mml2015.el
@@ -223,6 +223,25 @@ Whether the passphrase is cached at all is controlled by
 	  handles
 	(list handles)))))
 
+(defun mml2015-gpg-pretty-print-fpr (fingerprint)
+  (let* ((result "")
+	 (fpr-length (string-width fingerprint))
+	 (n-slice 0)
+	 slice)
+    (setq fingerprint (string-to-list fingerprint))
+    (while fingerprint
+      (setq fpr-length (- fpr-length 4))
+      (setq slice (butlast fingerprint fpr-length))
+      (setq fingerprint (nthcdr 4 fingerprint))
+      (setq n-slice (1+ n-slice))
+      (setq result
+	    (concat
+	     result
+	     (case n-slice
+	       (1  slice)
+	       (otherwise (concat " " slice))))))
+    result))
+
 (defun mml2015-gpg-extract-signature-details ()
   (goto-char (point-min))
   (let* ((expired (re-search-forward