[emacs] small fixes to emms and fediorg/exitter

emms: reset score delta to 1 if last command is not
emms-playlist-mode-play-smart

fediorg: show thumbnails only when they are legit image files

2 files changed, 6 insertions, 4 deletions

diff --git a/emacs/.emacs.d/lisp/my/fediorg.el b/emacs/.emacs.d/lisp/my/fediorg.el
index 123545b..e2f21b8 100644
--- a/emacs/.emacs.d/lisp/my/fediorg.el
+++ b/emacs/.emacs.d/lisp/my/fediorg.el
@@ -215,8 +215,8 @@ Including ancestors and descendants, if any."
        (with-temp-buffer
          (insert
           (fediorg-make-org-link .url .type))
-         (if .description
-             (insert ": " .description))
+         (when .description
+           (insert ": " .description))
          (when .preview_url
            (let ((thumb-file-name
                   (file-name-concat
@@ -226,7 +226,8 @@ Including ancestors and descendants, if any."
              (ignore-error 'file-already-exists
                (url-copy-file .preview_url thumb-file-name))
              (insert "\n")
-             (insert-image (create-image thumb-file-name))
+             (when-let ((image (create-image thumb-file-name)))
+               (insert-image image))
              ))
          (buffer-string))))
    attachments
diff --git a/emacs/.emacs.d/lisp/my/my-emms.el b/emacs/.emacs.d/lisp/my/my-emms.el
index 6e8cf2a..e6fb0e2 100644
--- a/emacs/.emacs.d/lisp/my/my-emms.el
+++ b/emacs/.emacs.d/lisp/my/my-emms.el
@@ -508,7 +508,8 @@ character."
 
 If the last command is `emms-playlist-mode-play-smart', then set
 `my-emms-score-delta' to 2."
-  (when (eq last-command 'emms-playlist-mode-play-smart)
+  (if (not (eq last-command 'emms-playlist-mode-play-smart))
+      (setq my-emms-score-delta 1)
     (setq my-emms-score-delta 2)
     (setq last-command nil))
   )