X-Git-Url: https://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fmm-uu.el;h=cd201152455d4230989d1f82e747cb043ee001a9;hb=931e64049c6d898e55d204449f536e170937a03c;hp=e7770baf7c677d705f7780cd0394e84ee98fccc3;hpb=3e4fb443326ab4e6a1d6100ec5b412824ca598dd;p=gnus diff --git a/lisp/mm-uu.el b/lisp/mm-uu.el index e7770baf7..cd2011524 100644 --- a/lisp/mm-uu.el +++ b/lisp/mm-uu.el @@ -207,7 +207,7 @@ Return that buffer." (if (looking-at ".+") (setq file-name (let ((nnheader-file-name-translation-alist - '((?/ . ?,) (? . ?_) (?* . ?_) (?$ . ?_)))) + '((?/ . ?,) (?\ . ?_) (?* . ?_) (?$ . ?_)))) (nnheader-translate-file-chars (match-string 0)))))) (defun mm-uu-binhex-filename () @@ -361,7 +361,7 @@ Return that buffer." ((eq mm-decrypt-option 'never) nil) ((eq mm-decrypt-option 'always) t) ((eq mm-decrypt-option 'known) t) - (t (y-or-n-p "Decrypt pgp encrypted part?"))))) + (t (y-or-n-p "Decrypt pgp encrypted part? "))))) (defun mm-uu-pgp-encrypted-extract-1 (handles ctl) (let ((buf (mm-uu-copy-to-buffer (point-min) (point-max))))