Function: rfc2047-strip-backslashes-in-quoted-strings

rfc2047-strip-backslashes-in-quoted-strings is a byte-compiled function defined in rfc2047.el.gz.

Signature

(rfc2047-strip-backslashes-in-quoted-strings)

Documentation

Strip backslashes in quoted strings. \" remains.

Source Code

;; Defined in /usr/src/emacs/lisp/mail/rfc2047.el.gz
(defun rfc2047-strip-backslashes-in-quoted-strings ()
  "Strip backslashes in quoted strings.  `\\\"' remains."
  (goto-char (point-min))
  (let (beg)
    (with-syntax-table (standard-syntax-table)
      (while (search-forward "\"" nil t)
	(unless (eq (char-before) ?\\)
	  (setq beg (match-end 0))
	  (goto-char (match-beginning 0))
	  (condition-case nil
	      (progn
		(forward-sexp)
		(save-restriction
		  (narrow-to-region beg (1- (point)))
		  (goto-char beg)
		  (while (search-forward "\\" nil 'move)
		    (unless (memq (char-after) '(?\"))
		      (delete-char -1))
		    (forward-char)))
		(forward-char))
	    (error
	     (goto-char beg))))))))