# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 836760932 0
# Node ID 6be6d199054320cc6aa629f6088b6f35f940bc98
# Parent  7844c0f756d082527d8384b92031c1380a767bae
(ps-article-author, ps-info-file, ps-info-node): Don't die if header is missing.

diff -r 7844c0f756d0 -r 6be6d1990543 lisp/ps-print.el
--- a/lisp/ps-print.el	Sun Jul 07 17:30:04 1996 +0000
+++ b/lisp/ps-print.el	Sun Jul 07 17:35:32 1996 +0000
@@ -1954,7 +1954,7 @@
 (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 @@
 (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 @@
 (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 ???")))