TESTPAT-DOODLE

   1 (setq load-path (cons "." load-path))
   2 (require 'ew-dec)
   3 (require 'ew-line)
   4
   5 (defun decode-doodle (src &rest opts)
   6   (setq ew-decode-field-cache-buf nil)
   7   (let ((ew-decode-sticked-encoded-word nil)
   8         (ew-decode-quoted-encoded-word nil)
   9         (ew-ignore-75bytes-limit (memq 'ignore-75bytes-limit opts))
  10         (ew-ignore-76bytes-limit (memq 'ignore-76bytes-limit opts))
  11         (ew-permit-sticked-comment (memq 'permit-sticked-comment opts))
  12         (ew-permit-sticked-special (memq 'permit-sticked-special opts))
  13         (ew-permit-null-encoded-text nil))
  14     (string-match "\\`[^:]*:" src)
  15     (let* ((field-name (substring src
  16                                   (match-beginning 0)
  17                                   (1- (match-end 0))))
  18            (field-body (substring src (match-end 0)))
  19            (result (ew-crlf-unfold
  20                     (concat field-name ":"
  21                             (ew-decode-field field-name field-body)))))
  22       result)))
  23
  24 (defun encode-doodle (src &rest opts)
  25   nil)
  26
  27 (defun report-doodle ()
  28   (report 'decode-doodle 'encode-doodle))
  29
  30 (defun report-doodle-verbose ()
  31   (report 'decode-doodle 'encode-doodle t))