(ps-article-author, ps-info-file, ps-info-node): Don't die if header is missing.

diff --git a/lisp/ps-print.el b/lisp/ps-print.el
index 60bc9aca6b1d5a1e179927442e49504acd526269..b4d50b80ea3cc0cbeaa541b1a7f8a984c209fff6 100644 (file)
--- a/lisp/ps-print.el
+++ b/lisp/ps-print.el
@@ -1954,7 +1954,7 @@ EndDSCPage\n"))
 (defun ps-article-author ()
   (save-excursion
     (goto-char (point-min))
-    (if (re-search-forward "^From:[ \t]+\\(.*\\)$")
+    (if (re-search-forward "^From:[ \t]+\\(.*\\)$" nil t)
        (let ((fromstring (buffer-substring (match-beginning 1) (match-end 1))))
          (cond
 
@@ -2027,7 +2027,7 @@ EndDSCPage\n"))
 (defun ps-info-file ()
   (save-excursion
     (goto-char (point-min))
-    (if (re-search-forward "File:[ \t]+\\([^, \t\n]*\\)")
+    (if (re-search-forward "File:[ \t]+\\([^, \t\n]*\\)" nil t)
        (buffer-substring (match-beginning 1) (match-end 1))
       "File ???")))
 
@@ -2036,7 +2036,7 @@ EndDSCPage\n"))
 (defun ps-info-node ()
   (save-excursion
     (goto-char (point-min))
-    (if (re-search-forward "Node:[ \t]+\\([^,\t\n]*\\)")
+    (if (re-search-forward "Node:[ \t]+\\([^,\t\n]*\\)" nil t)
        (buffer-substring (match-beginning 1) (match-end 1))
       "Node ???")))