Commits

Anonymous committed d53f109

Fixed decoding of PGP clear text block.

  • Participants
  • Parent commits 893e918

Comments (0)

Files changed (1)

File lisp/vm-pgg.el

 
 (defun vm-pgg-make-presentation-copy ()
   "Make a presentation copy also for cleartext PGP messages."
-  (let* ((buffer-read-only nil)
-         (m (car vm-message-pointer))
+  (let* ((m (car vm-message-pointer))
          (layout (vm-mm-layout m)))
     ;; make a presentation copy
     (vm-make-presentation-copy m)
     ;; remove From line
     (goto-char (point-min))
     (forward-line 1)
-    (delete-region (point-min) (point))
-    (vm-reorder-message-headers nil vm-visible-headers
-                                vm-invisible-header-regexp)
-    (vm-decode-mime-message-headers m)
-    (when (vectorp layout)
-      ;; skip headers otherwise they get removed 
-      (goto-char (point-min))
-      (search-forward "\n\n")
-      (vm-decode-mime-layout layout)
-      (delete-region (point) (point-max)))
-    (vm-energize-urls-in-message-region)
-    (vm-highlight-headers-maybe)
-    (vm-energize-headers-and-xfaces)))
+    (let ((buffer-read-only nil))
+      (delete-region (point-min) (point))
+      (vm-reorder-message-headers nil vm-visible-headers
+                                  vm-invisible-header-regexp)
+      (vm-decode-mime-message-headers m)
+      (when (vectorp layout)
+        ;; skip headers otherwise they get removed 
+        (goto-char (point-min))
+        (search-forward "\n\n")
+        (vm-decode-mime-layout layout)
+        (delete-region (point) (point-max)))
+      (vm-energize-urls-in-message-region)
+      (vm-highlight-headers-maybe)
+      (vm-energize-headers-and-xfaces))))
     
 (defvar vm-pgg-state nil
   "State of the currently viewed message.")