Function: mml2015-fix-micalg

mml2015-fix-micalg is a byte-compiled function defined in mml2015.el.gz.

Signature

(mml2015-fix-micalg ALG)

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/mml2015.el.gz
(defun mml2015-fix-micalg (alg)
  (and alg
       ;; Mutt/1.2.5i has seen sending micalg=php-sha1
       (upcase (if (string-match "^p[gh]p-" alg)
		   (substring alg (match-end 0))
		 alg))))