From a97592dd6b49524f141567355ce8f6488756183b Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Sun, 7 Jul 1996 17:35:32 +0000 Subject: [PATCH] (ps-article-author, ps-info-file, ps-info-node): Don't die if header is missing. --- lisp/ps-print.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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 ???"))) -- 2.39.2