Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
openSUSE:Factory:zSystems
emacs-vm
vcard-Make-vcard-parser-more-robust-to-invalid-...
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File vcard-Make-vcard-parser-more-robust-to-invalid-vcards.patch of Package emacs-vm
From: Egbert Eich <eich@suse.com> Date: Wed Mar 29 06:54:49 2023 +0200 Subject: vcard: Make vcard parser more robust to invalid vcards Patch-mainline: Not yet Git-commit: b072046a2098da9d81af39aa5fa29768dbdd46b8 References: Signed-off-by: Egbert Eich <eich@suse.com> Signed-off-by: Egbert Eich <eich@suse.de> --- vm/trunk/lisp/vcard.el | 32 ++++++++++++++++---------------- 1 file changed, 16 insertions(+), 16 deletions(-) diff --git a/vm/trunk/lisp/vcard.el b/vm/trunk/lisp/vcard.el index fe58cf1..5084e60 100644 --- a/vm/trunk/lisp/vcard.el +++ b/vm/trunk/lisp/vcard.el @@ -235,22 +235,22 @@ Note: this function modifies the buffer!" (delete-char 1)) (goto-char (point-min)) - (re-search-forward "^begin:[ \t]*vcard[ \t]*\n") - (set-marker pos (point)) - (while (and (not (looking-at "^end[ \t]*:[ \t]*vcard[ \t]*$")) - (re-search-forward ":[ \t]*" nil t)) - (set-marker newpos (match-end 0)) - (setq properties - (vcard-parse-region-properties pos (match-beginning 0))) - (set-marker pos (marker-position newpos)) - (re-search-forward "[ \t]*\n") - (set-marker newpos (match-end 0)) - (setq value - (vcard-parse-region-value properties pos (match-beginning 0))) - (set-marker pos (marker-position newpos)) - (goto-char pos) - (funcall filter properties value) - (setq vcard-data (cons (cons properties value) vcard-data))))) + (if (re-search-forward "^begin:[ \t]*vcard[ \t]*\n" nil t) + (set-marker pos (point)) + (while (and (not (looking-at "^end[ \t]*:[ \t]*vcard[ \t]*$")) + (re-search-forward ":[ \t]*" nil t)) + (set-marker newpos (match-end 0)) + (setq properties + (vcard-parse-region-properties pos (match-beginning 0))) + (set-marker pos (marker-position newpos)) + (re-search-forward "[ \t]*\n") + (set-marker newpos (match-end 0)) + (setq value + (vcard-parse-region-value properties pos (match-beginning 0))) + (set-marker pos (marker-position newpos)) + (goto-char pos) + (funcall filter properties value) + (setq vcard-data (cons (cons properties value) vcard-data)))))) (nreverse vcard-data))) (defun vcard-parse-region-properties (beg end)
Locations
Projects
Search
Status Monitor
Help
OpenBuildService.org
Documentation
API Documentation
Code of Conduct
Contact
Support
@OBShq
Terms
openSUSE Build Service is sponsored by
The Open Build Service is an
openSUSE project
.
Sign Up
Log In
Places
Places
All Projects
Status Monitor