* TESTPAT-DOODLE: New file.

[elisp/flim.git] / TESTPAT-DOODLE

diff --git a/TESTPAT-DOODLE b/TESTPAT-DOODLE
new file mode 100644 (file)
index 0000000..80d752d
--- /dev/null
+++ b/TESTPAT-DOODLE
@@ -0,0 +1,31 @@
+(setq load-path (cons "." load-path))
+(require 'ew-dec)
+(require 'ew-line)
+
+(defun decode-doodle (src &rest opts)
+  (setq ew-decode-field-cache-buf nil)
+  (let ((ew-decode-sticked-encoded-word nil)
+       (ew-decode-quoted-encoded-word nil)
+       (ew-ignore-75bytes-limit (memq 'ignore-75bytes-limit opts))
+       (ew-ignore-76bytes-limit (memq 'ignore-76bytes-limit opts))
+       (ew-permit-sticked-comment (memq 'permit-sticked-comment opts))
+       (ew-permit-sticked-special (memq 'permit-sticked-special opts))
+       (ew-permit-null-encoded-text nil))
+    (string-match "\\`[^:]*:" src)
+    (let* ((field-name (substring src
+                                 (match-beginning 0)
+                                 (1- (match-end 0))))
+          (field-body (substring src (match-end 0)))
+          (result (ew-crlf-unfold
+                   (concat field-name ":"
+                           (ew-decode-field field-name field-body)))))
+      result)))
+
+(defun encode-doodle (src &rest opts)
+  nil)
+
+(defun report-doodle ()
+  (report 'decode-doodle 'encode-doodle))
+
+(defun report-doodle-verbose ()
+  (report 'decode-doodle 'encode-doodle t))