From: Karl Heuer <kwzh@gnu.org>
Date: Sun, 7 Jul 1996 17:35:32 +0000 (+0000)
Subject: (ps-article-author, ps-info-file, ps-info-node): Don't die if header is missing.
X-Git-Tag: emacs-19.34~241
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a97592dd6b49524f141567355ce8f6488756183b;p=emacs.git

(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 60bc9aca6b1..b4d50b80ea3 100644
--- 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 ???")))