[nongnu] elpa/org-mime 1fc8edbf15: clean code

[ELPA Syncer]

branch: elpa/org-mime
commit 1fc8edbf15d0c34baa34fd566dce4a96f3575bb6
Author: Chen Bin <chenbin.sh@gmail.com>
Commit: Chen Bin <chenbin.sh@gmail.com>

    clean code
---
 README.org  |  2 +-
 org-mime.el | 10 ++++++----
 2 files changed, 7 insertions(+), 5 deletions(-)

diff --git a/README.org b/README.org
index bf77e1be77..f319ba8d5f 100644
--- a/README.org
+++ b/README.org
@@ -95,7 +95,7 @@ Below code renders text between "#" in red color,
 #+end_src
 For other customization options see the org-mime customization group.
 ** Beautify quoted mail when replying
-It already works out of box. Currently it emulates Gmail's style. You can go 
back the old style by =(setq org-mime-beautify-quoted-mail nil)=.
+It already works out of box. Currently it emulates Gmail's style. You can go 
back the old style by =(setq org-mime-beautify-quoted-mail-p nil)=.
 ** Export options
 To avoid exporting TOC, you can setup =org-mime-export-options= which 
overrides Org default settings (but still inferior to file-local settings),
 #+begin_src elisp
diff --git a/org-mime.el b/org-mime.el
index 991ff5f332..51617ba98e 100644
--- a/org-mime.el
+++ b/org-mime.el
@@ -110,7 +110,7 @@
 ;;                 (replace-match "<span style=\"color:red\">\\1</span>"))))
 ;;
 ;; 3. The quoted mail uses Gmail's style, so mail replies looks clean and 
modern.
-;; If you prefer the old style, please set `org-mime-beautify-quoted-mail' to 
nil.
+;; If you prefer the old style, please set `org-mime-beautify-quoted-mail-p' 
to nil.
 ;;
 ;; 4. Please note this program can only embed exported HTML into mail.
 ;;    Org-mode is responsible for rendering HTML.
@@ -128,7 +128,7 @@
 (require 'org)
 (require 'ox-org)
 
-(defcustom org-mime-beautify-quoted-mail t
+(defcustom org-mime-beautify-quoted-mail-p t
   "Beautify quoted mail in more clean HTML, like Gmail."
   :group 'org-mime
   :type 'boolean)
@@ -298,8 +298,10 @@ SUBTREEP is t if current node is subtree."
     (vm "?")))
 
 (defun org-mime-beautify-quoted (html)
-  "Clean up quoted mail in modern UI style.
+  "Beautify quoted mail in modern UI style.
 HTML is the body of the message."
+  (when org-mime-debug
+    (message "org-mime-beautify-quoted called => %s" html))
   (let ((quote-depth 0)
         (line-depth 0)
         (in-quote-p nil)
@@ -345,7 +347,7 @@ multipart/related part."
                  plain
                  (when images "<#multipart type=related>")
                  "<#part type=text/html>\n"
-                 (if org-mime-beautify-quoted-mail
+                 (if org-mime-beautify-quoted-mail-p
                      (org-mime-beautify-quoted html)
                    html)
                  images