unable to upgrade from emacs 27 to emacs 28

[John Covici]

Hi.  I tried to upgrade my emacs from 27 to 28, but I get lots of
errors in my .emacs file.

The errors seems to be around these lines:

(require 'package)
(add-to-list 'package-archives
                   '("melpa" . "http://melpa.org/packages/";)
                   (when (< emacs-major-version 24)
                        ;; For important compatibility libraries like cl-lib
                          (add-to-list 'package-archives '("gnu" . 
"http://elpa.gnu.org/packages/";))))
(package-initialize)
(setq max-specpdl-size 22000)
(add-to-list 'load-path "~/.emacs.d/el-get/el-get")

(unless (require 'el-get nil 'noerror)
  (with-current-buffer
         (url-retrieve-synchronously
          
"https://raw.githubusercontent.com/dimitri/el-get/master/el-get-install.el";)
    (goto-char (point-max))
    (eval-print-last-sexp)))

(add-to-list 'el-get-recipe-path "~/.emacs.d/el-get-user/recipes")
;(el-get 'sync)

(defconst user-cache-directory "~/.cache/emacs/")
(make-directory user-cache-directory t)

(use-package mime-play
  :config ;https://www.emacswiki.org/emacs/WlFaq#toc42
  (setq mime-play-find-every-situations nil
        mime-play-delete-file-immediately nil))

(use-package mime-view
  :init
  (add-hook 'wl-summary-mode-hook
            (lambda ()
              (local-set-key "\C-c\C-o" 'wl-summary-view-html)))
  :config (setq mime-view-text/html-previewer 'shr
                mime-situation-examples-file (concat user-cache-directory 
"mime")
                ;https://www.emacswiki.org/emacs/WlFaq#toc42
                mime-view-mailcap-files (concat user-cache-directory "mailcap"))
  
  ;; Functions
  ;; Reading HTML mail
  (defun wl-summary-view-html ()
    (interactive)
    (save-excursion
      (wl-message-select-buffer wl-message-buffer)
      (let ((done nil)
            (mime-preview-over-to-next-method-alist
             `((wl-original-message-mode . (lambda ()
                                             (setq done t)))))
            type subtype)
        (while (not done)
          (setq type (cdr (assq 'type (get-text-property (point) 
'mime-view-situation))))
          (setq subtype (cdr (assq 'subtype (get-text-property (point) 
'mime-view-situation))))
          (if (and (eq type 'text)
                   (eq subtype 'html))
              (progn
                (setq done t)
                (mime-preview-play-curjrent-entity))
            (mime-preview-move-to-next)))))))


The first error was the use-package line.

Is there some further upgrade tasks I need to do to get this working?

Thanks in advance for any suggestions.

-- 
Your life is like a penny.  You're going to lose it.  The question is:
How do
you spend it?

         John Covici wb2una
         covici@ccs.covici.com