Function: mml2015-gpg-pretty-print-fpr

mml2015-gpg-pretty-print-fpr is a byte-compiled function defined in mml2015.el.gz.

Signature

(mml2015-gpg-pretty-print-fpr FINGERPRINT)

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/mml2015.el.gz
(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
	     (cl-case n-slice
	       (1  slice)
	       (otherwise (concat " " slice))))))
    result))